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(57) Abstract 

Methods and apparatus for predicting and improving patient compliance with a course of medical treatment call for inputting data 
about the patient (201) and, optionally, about the health care provider (203), the condition diagnosis/prognosis (215), and the treatment 
recommendation (217). From this data, the patient's attitude or amenability to treatment can be determined, as can the health care provider's 
attitude and/or ability to induce compliance with a course of treatment. Moreover, methods and apparatus according to the invention can 
estimate the likelihood of patient compliance with a specific course of treatment or can generate a suggested program of treatment likely to 
have an increased probability of patient compliance. 
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METHOD AND APPARATUS FOR PREDICTING AND IMPROVING 
PATIENT COMPLIANCE WITH MEDICAL TREATMENT 

Reference to Related Applications 

This application is a continuation of copending United States Provisional 
Patent Application No.60/087,847, filed June 3, 1998, the teachings of which 
application, including the appendices filed therewith, are incorporated by reference 
herein. 

Reference to Appendices 

The disclosure of this patent document contains material which is subject to 
copyright and/or mask work protection. The owner thereof has no objection to 
facsimile reproduction by anyone of the patent document or the patent disclosure, as it 
appears in the U.S. Patent and Trademark Office patent file or records, but otherwise 
reserves all copyright and/or mask work rights whatsoever. 

Background of the Invention 

This invention relates to medical therapies and, more particularly, to apparatus 
and methods for predicting and improving patient compliance with prescribed medical 
treatments. This invention, which may be used in individual patient treatment as well 
as group medical care, has application in all fields of medicine, including but not 
limited to, internal medicine, psychiatry, surgery, obstetrics, pediatrics, and other 
medical specialties. 

In general, medical treatments require patient adherence to a course of action 
over a period of time. Treatment of hypertension, for example, usually requires taking 
one or two pills a day and avoiding salty foods. Illnesses as diverse as heart disease, 
diabetes, advanced arthritis, manic depressive illness, and schizophrenia involve daily 
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medications. Treatment of low back pain may involve specific exercises over a long 
period of time. However, even proven cures will fail, if patients do not take them. Cost 
with no benefit results when patients purchase medications, surgical appliances, or 
exercise equipment only to leave them in a closet. 

Current approaches to improving patient compliance focus on making 
treatment less onerous for patients and informing and educating patients. Steps to 
make treatments less onerous include prescribing fewer medications, prescribing 
medications with fewer side-effects (or side-effects less troubling to a specific patient), 
prescribing medication according to regimes that reduce the number of times a day the 
medication must be ingested, and prescribing medication according to regimes that 
reduce the number of pills that must be ingested each day. Steps to make patients 
better informed include reviewing medication schedules with patients, reviewing side- 
effects with patients, reviewing basic medical facts and prognostic information with 
patients, and providing informational brochures, video tapes or instructional software 
which allow patients to learn about their illness and their treatments on their own. 

Other approaches to improving patient compliance involve automatic 
reminders for patients. Wrist watches can beep when it is time to take another pill. 
Somewhat larger timers play back a family member's voice as a reminder. Medication 
alarm clocks can flash a light to alert patients with hearing loss. Special pill boxes and 
charts help organize medications. Automated medication dispensers assure the right 
pills at the right time, and safeguard against overuse of me'dicine. 

More direct, and more expensive approaches to enhance patient compliance 
involve incentive payments or monitoring. The goal of eradicating tuberculosis has 
required public health ofiBcials, under some circumstances, to employ medical 
personnel to visit patients daily to directly observe them taking their medication. 
Pagers with signal-back capabilit>' can both deliver a reminder to a patient and accept 
an acknowledgment from the patient: a form of monitoring without actual visits. 
Indirect monitoring has been attempted by reviewing pill bottle openings, prescription 
refills, and physician or hospital visits. These approaches tend to be expensive, e.g., 
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requiring electronic pill bottle tops which signal a central office whenever the bottle is 
opened, or slow, e.g., detecting failure to refill a one month prescription only after a 
week into the second month of treatment. While these techniques do focus attention on 
patients whose treatment is not going as planned, they are vulnerable to false negative 
5 readings: a pill bottle opening does not necessarily mean that the correct number of 
pills were taken. 

In the foregoing regards, reference may be made to: 

10 R Brian Hynes, M.D., K Ann McKibbon, & Ronak Kanani, 

"Systematic review of randomized trials of interventions to assist 
patients to follow prescriptions for medications," Lancet volume 348, 
pages 383-386, August 10, 1996 

15 Chris Butler, M.B., Ch.B., M.R.C.G.P., Stephen Rollnick, Ph.D., & 

Nigel Stott, M.D., Ch.B., F.R.C.G.P, F.R.C,P., "The practitioner, the 
patient and resistance to change: recent ideas on compliance," Canadian 
Medical Association Journal volume 1 54, pages 1357-1 362, May 1 , 
1996 

20 

Alan Stoudemire, M.D., & Troy Thompson, M.D., "Medication 
Noncompliance: Systematic Approaches to Evaluation & Intervention," 
General Hospital Psychiatry, volume 5, pages 223-239, 1983 

25 Nancy Houston Miller, R.N., Martha Hill, Ph.D., R.N., Thomas Kottke, 

M.D,, Ira S. Ockene, M.D., "The Multilevel Compliance Challenge: 
Reconmiendations for a Call to Action," Circulation, volume 95, pages 
1085-1090, February 18, 1997. 

30 Joyce Cramer & Bert Spilker, Ph.D, M.D. eds, Patient Compliance in 

Medical Practice and Clinical Trials . Raven Press, New York, 1991 
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Donald Meichenbaum & Dennis C Turk, Facilitating Treatment 
Adherence, Plenum Press, New York, 1987 

Jack E Fincham, Ph.D., ed, Advancing Prescription Medicine 
Compliance , Haworth Press, Inc., New York, 1 995 . 

Current approaches to improving medication compliance tend to use one 
strategy for all patients: individual characteristics are not taken into account. It is up to 
the treating physician to select among the various approaches. Unfortunately, 
physicians have proven incapable of accurately predicting which patients will comply 
with prescribed treatment and which ones will not. Worse, physicians are usually 
unaware of their inability to predict. Other commonly accepted factors for compliance 
prediction, such as severity of illness and cost of medication, are now also known to be 
inaccurate. Nor is compliance accurately predicted by socioeconomic class or cultural 
background. 

The current approaches also assume that patients trust their physicians' 
recommendations and that patients want to comply with those recommendations (or, at 
least, believe they would be better off, if they did comply with the reconunendations). 
These approaches ftirther assume that patients react in a reasonably positive manner to 
their physicians or health care providers. Failure to comply is thus assumed to 
represent inability, ignorance, or inattention. 

. An object of this invention, accordingly, is to provide improved methods and 
apparatus for predicting and improving patient compliance with prescribed medical 
treatments. More particularly, an object of the invention is to provide such methods 
and apparatus as take into account characteristics of individual patients in selecting 
and presenting treatment recommendations in fashions that increase the likelihood 
those tteatments will be followed to completion. 

A further object of this invention is to provide such methods and apparatus as 
take into account the practices and preferences of individual physicians and other 
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health care providers, in concert with patient characteristics, in selecting and 
presenting such recommendations. 

Yet still another object of the invention is to provide such methods and 
apparatus as are amenable to automation. 

Summary of the Invention 

The aforementioned and other objects are attained by the invention, which 
provides methods and apparatus for predicting and improving patient compliance with 
a course of medical treatment. Thus, in one aspect, there is provided a metiiod of 
predicting and/or improving comphance by inputting data about the patient and, 
optionally, about the health care provider, the condition diagnosis/prognosis, and tiie 
treatment recommendation. From this data, the method determines the patient's 
attitude or amenability to treatment. The method can also determine the health care 
provider's attitude, or ability to induce compliance with a course of treatment. The 
method generates, from the input data and corresponding determinations, an estimation 
of likelihood of patient compliance with a recommended treatment. Alternatively, or in 
addition, the method can generate a suggested style or program of treatment likely to 
have an increased probability of patient compliance. 

Further aspects of the invention provide methods as described above in which 
the patient's attitude is determined based on his or her degree of agreement with 
statements selected on the basis of population survey techniques and, more 
particularly, for example, on the basis of segmentation process techniques. One aspect 
of the invention accordingly calls for finding the degree of patient agreement with one 
or more of the statements: 

I'm almost always satisfied witii the medical treatment I receive 
There are a lot of health care people that you can't trust 
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Doctors sometimes seem to make decisions before I finish explaining my 
problems or asking all my questions 

I know people who do not exactly follow the doctor's advice and they seem to 
5 do just fine 

I never know what questions to ask when I go to the doctor with a problem 

I try to keep up with current medical information whether I have a problem or 
10 not 

I've read or heard about new health care treatments that my doctor did not 
know about 

1 5 When I get sick or have a serious problem, 1 do my own research about the 

illness and treatments 

I feel I personally know enough about some medical problems and treatments 
that I feel comfortable giving advice about them 

20 

The costs I pay for health care are reasonable 

There is so much information about what is healthy and what is not that it is 
impossible to make sense of it 

25 

I often seek advice from other people 

I'm a patient person 

30 I don't like to make long term plans 

The quality of many products has gone down 

6 
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I feel comfortable using the newest technologies 

I am very good about planning things in order to keep my appointments 

5 You really do not have much control over what happens to you in life like an 

illness, it's just a matter of fate or luck 

I am pretty good about following healthy eating habits 

1 0 I wear seatbelts as a driver and as a passenger in a car or truck all the time 

Still further aspects of the invention provide apparatus, such as general or 
special-purpose computers, operating in accord with the methods described above. 
One such aspect provides, for example, an apparatus that includes an element for 

1 5 inputting patient data, an element for inputting health care provider data (e.g., 
physician data, medical staff data and health care organization data), diagnosis- 
prognosis data and treatment recommendation data. Each of these inputs has identifier 
components, e.g., individual patient and physician and group identifiers, as well as 
quantitative values, e.g., patient age. The inputs may also have temporal values, e.g., 

20 time the quantitative values were measured. An observer identifier may also be 
provided if the corresponding data is not obtamed directly from subject. 

A patient signal merging element identifies missing or corrupted inputs for 
individual patients. This can be based, for example, on group data values. Likewise, a 
25 provider signal merging element identifies missing or corrupted input for individual 
health care providers, again, based on provider group values. A diagnosis-prognosis 
merging element and a treatment recommendation merging element identify missing 
or corrupted data in corresponding fashion. 

30 An apparatus according to this aspect of the invention can also include a 

patient attitude estimating element that analyzes the output from the patient signal 
merging element. A provider style estimating element likewise analyzes the output 
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from the provider signal merging element. The attitude and style estimating elements 
feed their output into a treatment recommendation matcher which also accepts outputs 
from diagnosis-prognosis and treatment merging elements. 

The treatment recommendation matcher generates outputs including, but not 
limited to, estimations of the probability of patient compliance with the recommended 
treatment and with the styles of treatment that are likely to have reasonable 
probabilities of patient compliance. 

A display conditioner, which is provided in further aspects of the invention, 
accepts signals from the treatment recommendation matcher and prepares them for 
physicians, medical staff, patients, and computerized patient record systems. 

According to a further aspect of the invention, an apparatus as described above 
can include display or printing elements that show display conditioner output, or 
intermediate signals, in text or graphic form. 

In still another aspect, the apparatus can include output elements, e.g., 
facsimile interface or serial interface or other computer interfaces, to permit different 
views or recording of display conditioner output or intermediate signals. 

In still another aspect, the apparatus can include input elements, e.g., touch 
screen or keyboard or page scanner or serial interface or other computer interface, to 
permit either direct or derived information to be used. 

In still anotiier aspect, the apparatus can use inputs of a larger device, e.g., an 
automated instructional system or game, and the apparatus can output to the larger 
device so that instmctional content may be modified by signals generated, e.g., 
instructional content can be customized. 

In still another aspect, the apparatus can generate signals corresponding to 
group characteristics as it does for individual patient characteristics. 
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These and other aspects of the invention are evident in the drawings and in the 
description which follows. 
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Brief Description of the Drawings 

A further understanding of the invention may be attained by reference to the 
attached drawings, in which: 

Figure 1 depicts a computer system used in connection with a preferred 
practice of the invention; 

Figure 2 depicts the overall data flow with a system embodying the invention; 

and 

Figure 3 depicts an exemplary output by an apparatus operating in accord with 
a preferred practice of the invention. 

Detailed Description of the Illustrated Embodiment 
Overview 

Patients are more likely to comply with medical treatments that are in harmony 
with their personal styles. An energetic, active person given to athletic hobbies will 
have difficulty following a treatment regime of rest and warm compresses for a small 
bone fracture. Such a person may prefer surgical treatment offering quicker return to 
routine activity, despite surgical risk and cost. On the other hand, a person of 
philosophical and aesthetic inclination might be quite comfortable with a treatment 
requiring no surgery and no pills, despite the time required. Even for similar illnesses, 
different patients may prefer different treatments. 

Patients are more likely to comply with medical treatments they believe. 
Unfortunately, important medical conditions like high blood pressure and high 
cholesterol are not painful and do not limit activity. Patients must accept such 
diagnoses based on their physician's interpretation of instrument readings and 

10 
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laboratory data. Then, they must accept a physician's judgment that their blood 
pressure or cholesterol is abnormal enough to warrant medication. Finally, they must 
accept daily medications that have no immediate benefit, though sometimes 
medications have immediate side-effects. Patients take a lot on faith. 

It is difficult convincing patients that they have been correctly diagnosed and 
that they have been prescribed a personally optimum treatment. It is an uncertain task 
that is time consuming and costly. Uncertainty can be reduced by determining personal 
attitudes and styles ahead of time. Then, treatment recommendations can be matched 
to patient style; and, presentation of medical findings can be matched to patient 
attitude. 

People vary widely in their approach to new information, and firom whom they 
will accept it. Some like news: they seek out news stands and shows and search the 
World Wide Web. Others are seen with portable tape and compact disk players 
connected to earphones blocking out even changes in their immediate sunx)undings. 
Some people trust information only fi:om established sources with a stake in being 
factually correct; e.g., Encyclopedia Britannica, major metropolitan newspapers, major 
network news. Some people prefer the opinions of family, fiiends and close 
acquaintances with a stake in their personal well-being. And, even people who share a 
source may want different details; i.e., all the facts for their own analysis, or, just the 
bottom line. 

Different physicians interact quite differently with their patients. One aspect is 
their presentation of findings and treatment recommendations. This critical 
information presentation can be adapted for an individual patient, and more easily 
than, say, examination technique for a patient's ears, which is proscribed by human 
anatomy. Trusting patients, who prefer hearing the bottom line, may be more 
comfortable with just a prescription: detailed explanations may worry them. Skeptical 
patients might be won over with a detailed explanation and an offer of a separate, 
follow-up appointment for discussion of treatment options; they might respond to the 
absence of pressure to commit or comply immediately. Office routine, schedules, 
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pamphlets and staff are secondary components of physician patient interaction. These 
can be adapted for specific patient populations if not individual patients. 

Predicting and Improving Compliance 

5 

The illustrated embodiment predicts and improves patient compliance by 1) 
gauging patient attitudes and beliefs, 2) gauging physician style of interaction and 
treatment, then using (1) and (2) along with 3) diagnosis characteristics and 
4)treatment characteristics to 5) gauge the match or mismatch between patient and 
10 treatment. From result (5), systems according to the invention estimate 6) probability 
of compliance, 7) subset of treatment characteristics most influencing (6), and 8) style 
of physician patient interaction most likely to increase compliance (6). 

There are no well-accepted techniques for gauging patients' and physicians' 
1 5 attitudes, beliefs and styles within the art of medical compliance. However, the use of 
demographic data and questionnaires to estimate personality and preferences is well 
known in other fields. This invention makes novel adaptation of these techniques and 
combines them with medical information to achieve its purpose. 

20 To avoid bias from commonly accepted factors for compliance prediction, a 

preferred embodiment of the invention starts with a survey of the population from 
which patients are drawn. Demographics, opinion survey questions, and medical 
information are collected from a representative population sample. Cluster analysis 
yields a few population subgroups whose attitudes, beliefs, behaviors are likely to be 

25 similar to each other, and different from people in other clusters. 

In market surveys, cluster analysis facilitates segmentation of the market. 
Medical compliance could be considered a problem in selling medical treatment. 
However, there are critical differences. Companies start with a product and aim to fmd 
30 customers amidst a large population who will want their product. Treating physicians 
start with a patient (customer) and aim to find a treatment (product) with which the 
patient will comply. Products are mass produced; hopefully, customers will come back 

12 
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for more. Treatments are individualized; hopefully, patients will not need to come 
back for more. Most important, guided by this invention, a physician can adapt 
treatment during a patient visit (the moment of sale). 

After dividing the population into a suitable set of clusters, each datum from 
the survey is reanalyzed in tenns of its correlation with a person's assigned cluster. 
The cluster to which a patient belongs is then estimated by collecting information 
similar to that collected during the survey. Data that does not correlate well with 
cluster assignment can be skipped. Calculations can be made to compensate for 
missing data. 

In a similar fashion, physician demographics, opinion surveys, and practice 
patterns are used to determine a small set of physician clusters. For both patients and 
physicians, cluster analysis derived calculations may be adjusted and may be logically 
augmented based on experience over time. More complex, symbolic simulations of 
personal belief systems have been described in the artificial intelligence and 
psychology literature. Such simulations could be adapted for this invention. 

Reanalysis, after cluster determination, also permits match / mismatch 
relationships to be determined. For each cluster, reviewing group responses makes 
certain characteristics apparent. For example, if most members of one cluster are 
highly educated and indicate they like reading news articles about medical discoveries, 
they can be assumed to prefer detailed explanations about treatments. Similarly, if 
members of another cluster indicate they are impatient and they have trouble keeping 
appointments, they are unlikely to comply with treatments based on exercise and diet. 
If members of a physician cluster indicate they believe their years of clinical training 
give them knowledge completely unavailable to the lay public, they may need to make 
a major change in their presentation to a patient whose cluster thinks all important 
information can be explained in simple terms so they can make their own decisions. 

Diagnoses and treatments are characterized along simple dimensions; e.g., 
severity or risk, visibility, duration, is taking pills involved, is surgery required, etc. 
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The illustrated embodiment avoids use of a long, exhaustive list of ailments and 
medications by working with these characterizations. It can handle a new disease and 
treatment with addition only of a small set of mformation or specification of an 
analogous disease and treatment. 

Automated Apparatus for Practice of the Invention 

Figure 1 illustrates a computer system of the type used in connection with 
practice of the invention. Computer 101 is connected to data processing peripheral 
units comprising a flat panel display and touch screen 121, disk memory 123, a 
computer communication network 125, a pointing device 127, a facsimile modem 129, 
a video monitor 131, a keyboard 133, a printer 135, and a mark sense or page scanner 
137. The disk memory 123 serves as a non-volatile storage element for information 
accessed by the computer 101. 

The computer communication network 125 serves to allow access to non- 
volatile storage elements and databases or other peripheral devices among a collection 
of computers. 

The flat panel display and touch screen 121, the pointing device 127, the video 
monitor 131, and the keyboard 133 provide an interface between the computer 101 and 
the user. Specifically, the flat panel display and the monitor present a graphic display 
of signals generated by the computer 101, while the keyboard 133 and pointing device 
133 convert typed messages and positions signals into computer-readable form. 

Not all elements are required for practicing the invention, e.g., a flat panel 
display and touch screen 121 may suffice without a video monitor 131 and a separate 
pointing device 127. Likewise, if all input is done directly by users and all output is 
viewed immediately, a flat panel display and touch screen 121 may suffice without any 
other input or output devices, e.g., eliminating the need for a printer 135 or scanner 
137. 
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The illustrated computer 101 includes functional units comprising an I/O 
conttoUer 104, a central processor 102, and a (random access) memory unit 103. The 
I/O controller 104 is an interface between the computer 101 and its peripheral units. 
The central processor 102 serves as the primary source of control, arithmetic, and logic 
operations within the computer lOL Further, the memory unit 103 provides volatile, 
rapid-access storage for the computer 101, particularly for the central processing unit 
102. The memory unit 103 may also provide non-volatile storage, which, in sufficient 
quantity, eliminates the need for disk memory 123. 

Software functions 111 are built up from basic operating system & graphical 
support 118 in a customary manner so that compliance analysis 112 processes data 
from a variety of sources. Clinical & financial information system 113 data, if not 
directly available in a specific implementation, can be obtained through database 
functions 114 using operating system & graphical support 118 making use of computer 
network communication 125 or modem 129. Alternatively, such information can 
obtained from medical staff or directly from patients using accept data 115 and present 
data 116 user interface functions 117 working through flat panel display & touch 
screen 121 or through pointing device 127 and video monitor 131 and keyboard 133. 

Those skilled in the art will appreciate that other data input and output routing 
is possible using the system envisioned in Figure 1 , i.e,, interactive input and output 
through the Worid Wide Web is possible with suitably advanced accept data 115, 
present data 116, and operating system & graphical support 118 coupled v^th 
computer network communication 125 or modem 129. Alternatively, batch input and 
output is possible in a traditional manner using printer 135 and scanner 137, or, using 
clinical financial information system 113 and database functions 114. 

The illustrated hardware used for practice of the invention can be selected from 
any one of many conmiercially available programmable digital computers or personnel 
digital assistants, e.g., preferably, a commercially available Palm Pilot^w running 
version 2.0 of the Pilot™ operating system, as progranmied in accord with the 
teachings below. 

15 
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Operation 

The structure and operation of the illustrated embodiment is premised on the 
notion that effective approaches to improving treatment compliance take into account 
individual patient attitudes and beliefs. Those patients inclined to believe their 
physicians' judgments and recommendations and whose temperament allows them to 
follow complicated instructions, for example, might do best with quick, straight- 
forward prescriptions. Those patients inclined to be skeptical of physicians and 
medical treatment, on the other hand, might be better served with detailed prognostic 
information and instructions on watching for developments that they personally 
believe necessitate treatment. Still others, those patients who prefer a choice of 
treatment options could receive a selection of possible course of treatment while, those 
who prefer one "best" recommendation could receive it. 

The illustrated embodiment also operates on the assumption that effective 
treatment takes into account individual physician style and how that interacts with 
various patient attitudes and beliefs. For example, a dogmatic professional style, and 
delayed examination due to office overbooking may cause a skeptical and easily 
insulted patient to consciously or unconsciously ignore treatment recommendations as 
if to get even. On the other hand, an accommodating professional style, attentive to 
individual patient preferences with extra time to talk, may be interpreted as diagnostic 
uncertainty, or lack of professional stature by a patient who interprets a more 
authoritarian style as indicative of a technical expert whose time is much in demand. 

Ideally, at an individual level, the medical nature and style of a physician's 
recommendations would be matched to each patient's individual attitudes and beliefs. 
In public or group medical care, an organization's efforts would be matched to its 
population's attitudes and inclinations. Extra efforts could be made for patients with 
serious illness who habitually avoid medical attention. Less effort could be wasted on 
those who routinely seek medical attention on their own and follow health-care 
providers' instructions. 



16 



wo 99/63462 



PCT/US99/12222 



Figure 2 depicts a functional interrelationship between elements of a preferred 
embodiment of the invention, as well as the processing of data by those elements. 
Patient data merging 219 accepts input, if any, directly from the patient 201 and 
merges it with patient related data input from medical / office staff input 203, health 
care organization / office information systems 207, and estimated / expected values 
209. Output from patient data merging 219 represents the system's best available 
characterization of the patient for use in further processing. In a similar fashion 
physician data merging 221 accepts input from the physician 205, medical / office staff 
input 203, health care organization / office information systems 207, and estimated / 
expected values 209. Output from physician data merging 221 represents the system's 
best available characterization of the physician, or health care provider, for use in 
further processing. Diagnosis - prognosis data merging 215 and treatment data 
merging 217 provide similar data processing for diagnosis-prognosis and treatment 
respectively. 

Complex data signals are passed in this apparatus. These signals include 
traditional information, e.g., age, sex, weight, blood pressure and laboratory values. 
These signals include health care utilization information, e.g., patient identifiers, 
health care provider identifiers, number of office visits, number of prescriptions. These 
signals include lifestyle and attitudinal information, e.g., hobbies, questionnaire 
answers, personality and psychological testing results. These signals also include 
coded diagnoses and treatments, current and past. In a preferred implementation, this 
information is kept as lists or sets of attribute-value pairs; most of the values are 
numeric, but non-numeric data and sub-lists are used at times. For instance, treatment 
information might be as simple as avoid weight bearing for a twisted ankle with a 
duration - 7 days and medication form - none and surgery - none. In another instance, 
treatment input might be a list of options starting with antibiotics for a sexually 
transmitted disease with a duration - 10 days and medication form -pill and surgery- 
none, followed by antibiotics with a duration - once and medication form - shot in 
buttocks and surgery - none. 
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Those skilled in the art will appreciate that estimated or expected data values 
209 need not be implemented as an independent entity. Data merging modules 215, 
217, 219, & 221 may include constants providing the same information. 

Patient attitude estimation 223 analyzes input from patient data merging 219 to 
characterize the patient's attitude with respect to medical illness and treatment. 
Physician style estimation 225 analyzes input from physician data merging 221 to 
characterize the physician or health care provider's style of patient interaction and 
treatment. 

Recommendation matching 227 analyzes the combination of inputs 
characterizing the overall medical encounter, namely, patient attitude 223, physician 
style 225, diagnosis-prognosis 215 and treatment 217. Its output estimates the 
likelihood that the patient will comply with each of the treatments and styles of 
medical intervention. 

Display conditioner 229 accepts input from recommendation matching 227 and 
converts it into a format, graphical or textual, suitable for the required output 231. 
Output might be as simple as a single number proportional to probability that this 
patient will comply with this physiciari's reconmiendation of a single treatment, 
potentially signaling the need for reconsideration of treatment options. Output may be 
more complicated to adequately explain to a health care provider what style of 
treatment might be more likely gain patient compliance. 

Those skilled in the art will appreciate that the display conditioner can also 
accept input from other elements to provide output that monitors the operation of the 
system. They will also appreciate that conditioner output could be saved on disk 
memory 123 or stored via database functions 114 when the apparatus is being used to 
predict compliance for a group of patients or members of a health care organization. 
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Segmentation 

The segmentation process utilized in the illustrated embodiment was developed 
using well established and accepted metiiods of population survey techniques. This 
identified the most relevant content for the survey and the appropriate match to the 
population being interviewed. For example, asking bus drivers about chicken farming, 
although using properly framed questions and statistical analysis, is a clear mismatch 
of content with audience. 

A fundamental issue in the research is also to recognize that the process and 
outcome are not intended to affect any direct behavior or attitudes among people, nor 
create any artificial experiences. The purpose of the research and the process is to, 
with the greatest possible accuracy, fmd ways to describe what already exists; 
characterizations of people based on their attitudes, behavior and other personal 
characteristics that accomplishes several things: 

reflects their typical and consistent state 

provides for discrimination between two or more groups of people, for if all 
people were identical in their styles, there would be no corresponding need 
for variety or alternatives in any facet of life 

results in a practical method of application in real life activities 

describes population groups that are individually large enough to warrant 
intervention, since each group represents a large number of absolute 
people, but also avoids a system that defines people in such minute detail 
that interventions customized to that segment would be economically 
impractical 
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Utilizes the language, concepts and other portrayals of the population segments 
that will be most readily identified and accepted because they are, in effect, 
in their own "language". 

The following process was used to develop the segmentation system, including 
the functional set of 20 questions and related weighting factors to score each person's 
responses: 

hiitiai sources for segmentation content: 

a review of existing literature for ideas, themes, situations, experiences and literal 
ways of describing them that would be recognized by people; 

conducted a series of focus groups with males and females specifically about their 
experiences and attitudes with a wide variety of health care situations. The 
objective of the groups was to obtain first hand statements of actual 
experiences, collect the language used to describe the events and attitudes, and 
probe for additional underlying issues. This information was then used to frame 
subsequent survey questions in ways that would replicate what people had 
related, in the type of language that describes their nature and not those of the 
researcher. 

S egmentation survey: 

a national, representative sample of male and female adults was interviewed using 
an extensive set of questions that was intended to encompass many facets of 
health care: medical practitioner visits, prescriptions, personal attitudes about 
health care in general and a person's own health status, and a variety of 
questions that have been used to describe different activities of people and that 
may be related to health care, such as participation in sports, nutritional habits, 
and other lifestyle activities. 
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The entire data set from the nearly 1 700 respondents was analyzed by a series of 
multi-variate statistical procedures to : 

reduce the total number of questions to smaller set of items that statistically 
derives a set of homogeneous population segments using the reduced set of 
items and sununarizes each construct or theme; 

identify items/statements that statistically maximize the difference between the 
homogeneous population segments; 

determine the number of population segments by trying several different 
solution sizes, such as five groups, six groups, seven groups, etc. The 
alternatives are tested to accomplish several concurrent objectives: 

obtain a final set of segments that is economically practical to work 
with in terms of the numbers of people involved 

provide maximum differentiation between the groups 

The original questionnaire contained over 150 items used in the analysis. Since 
the administration of this number of items in a survey is not practical to administer in 
any daily medical situation, further statistical analysis was used to reduce the total set 
to a smaller number, in the case of this study 20 statements, that would replicate the 
original segmentation and very highly correlate with the allocation of people to 
specific segments. A basic threshold was set, that the reduced number of questions to 
be used in typing people must correctly classify (that is, place in the same groups as 
the full questionnaire) at least 75% of the people. And, any incorrect classification 
must be in the next closest or adjacent segment for which the person had strong 
tendencies. 
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Based on the foregoing, a questionnaire used in the illustrated embodiment 
obtains the patient's degree of agreement (or disagreement) with the following 
statements: 

5 Tm almost always satisfied with the medical treatment I receive 

There are a lot of health care people that you can't trust 

Doctors sometimes seem to make decisions before I finish explaining my 
10 problems or asking all my questions 

I know people who do not exactly follow the doctor's advice and they seem to 
do just fine 

1 5 I never know what questions to ask when I go to the doctor with a problem 

I try to keep up with current medical infomiation whether I have a problem or 
not 

20 I've read or heard about new health care treatments that my doctor did not 

know about 

When I get sick or have a serious problem, I do my own research about the 
illness and treatments 



25 



30 



I feel I personally know enough about some medical problems and treatments 
that I feel comfortable givmg advice about them 

The costs I pay for health care are reasonable 

There is so much information about what is healthy and what is not that it is 
impossible to make sense of it 

22 



wo 99/63462 



PCTA;S99/12222 



I often seek advice from other people 

Vm a patient person 

I don't like to make long term plans 

The quality of many products has gone down 

I feel comfortable using the newest technologies 

I am very good about planning things in order to keep my appointments 

You really do not have much control over what happens to you in life like an 
illness, it's just a matter of fate or luck 

I am pretty good about following healthy eating habits 

I wear seatbelts as a driver and as a passenger in a car or truck all the time 

A preferred questionnaire used in posing these questions is provided in the 
Attachment 1. Those skilled in die art will appreciate that more or fewer questions 
compiled in accord with the foregoing techniques may be used instead of those shown 
in the attachment. Those skilled in the art will appreciate that these questions may be 
administered electronically or verbally or on paper and that the responses can be coded 
numerically. 

Outputting Compliance Prediction and Suggestions 

Figure 3 illustrates an exemplary individual output generated by the system 
described above. Particularly, the output reveals a prototypical patent, Mr. John Doe, 
suffering from hyperlipidemia, who believes he is in good health and who pursues his 
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own health care information. His questionnaire answers suggest that he is capable of 
sticking with treatments that require daily adherence over long periods of time; 
however, they suggest he prefers quick, technically oriented solutions. Under these 
circumstances, the output warns his physician that it is impossible for anyone to know 
whether or not Mr. Doe will in fact stick with the treatment recommended. Asking Mr. 
Doe what he has concluded, after he has had time to check his own sources, may 
provide the needed information. This output also suggests that exhortations to the 
effect that Mr. Doe is killing himself by not following treatment recommendations, are 
unlikely to be heeded. If some other treatment options are going to be considered, a 
higher-tech solution, e.g., cholesterol lowering drugs, may be more acceptable to Mr. 
Doe despite the expense. 

Yet a still further understanding of the invention may be attained by reference 
to Appendix II, providing a software listing for a preferred embodiment of the 
invention. 

The foregoing describes a preferred apparatus and method for predicting and 
improving patient compliance achieving the objects set forth above. Those skilled in 
the art will, of course, appreciate that the illustrated embodiment is exemplary only 
and that other embodiments incorporating modifications thereto fall with the scope of 
the invention, of which we claim: 
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1 . A method for any of predicting and improving patient compliance with health 
care treatment, comprising the steps 

5 A. inputting data relating to a patient and, optionally, data relating to a health care 
provider, diagnosis-prognosis, and treatment recommendation, 

B. determining, from the input data, an attitude of the patient and, optionally, an 
attitude of the health care provider, 

10 

C. generating, from the input data and/or attitude determination, any of an (i) 
estimation of a likelihood of patient compliance with a recommended treatment and 

N (ii) a style of treatment likely to have an increased probability of patient compliance. 

15 2. A method according to claim 1 , comprising the step of determining the 

patient's degree of agreement with one or more statements selected on the basis of 
population survey techniques. 

3. A method according to claim 2, comprising the step determining the patient's 
20 degree of agreement with one or more statements determined on the basis of a 

segmentation process, 

4. A method according to any of claims 1 - 3, comprising the step of determining 
the patient's degree of agreement or disagreement with one or more of the following 

25 statements: 

I'm almost always satisfied with the medical treatment I receive; 
There are a lot of health care people that you can't trust; 

30 

Doctors sometimes seem to make decisions before I finish explaining my 
problems or asking all my questions; 

25 
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I know people who do not exactly follow the doctor's advice and they seem to 
do just fine; 

I never know what questions to ask when I go to the doctor with a problem; 

I try to keep up with current medical information whether I have a problem or 
not; 

I've read or heard about new health care treatments that my doctor did not 
know about; 

When I get sick or have a serious problem, I do my own research about the 
illness and treatments; 

I feel I personally know enough about some medical problems and treatments 
that I feel comfortable giving advice about them; 

The costs I pay for health care are reasonable; 

There is so much information about what is healthy and what is not that it is 
impossible to make sense of it; 

I often seek advice from other people; 

Tm a patient person; 

I don't like to make long terai plans; 

The quality of many products has gone down; 

I feel comfortable using the newest technologies; 
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1 am very good about planning things in order to keep my appointments; 

You really do not have much control over what happens to you in life like an 
illness, it's just a matter of fate or luck; 

I am pretty good about following healthy eating habits; and 

I wear seatbelts as a driver and as a passenger in a car or truck all the time. 

5. A method according to any of claims 1 - 4, comprising the steps of: 

A. collecting patient medical data, medical history data, and behavioral and 
attitudinal data, 

B. collecting health care provider data, including that pertaining to diagnosis and 
prognosis, recommended treatments, style of interaction with patients, treatment 
statistics, and behavior / attitude, 

C. identifying corrupted or missing values among the collected data, 

D. estimating attitudes of any of the patient and health care provider based on the 
collected data, 

E. determining a proposed treatment based on numeric and logical analysis of 
estimated patient and physician attitudes and diagnosis prognosis, and 

F. generating an output signal textually or graphically representative of the 
treatment reconunendation with which a specific patient is most likely to comply. 

6. A method according to any of claims 1 - 5, comprising obtaining patient and 
physician data from electronic forms directly or paper forms by suitable scanners or 
typing. 
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7. A method according to any of claims 1 - 6, comprising obtaining patient and 
health care provider data from surrogate sources, such as medical office personnel, 
heath care organizations, populations statistics. 

8. A method according to any of claims 1 - 7, comprising generating text and 
graphical output on a computer screen or printer as a function of said output signal. 

9. A method according to any of claims 1 - 8, comprising displaying treatment 
inputs ranked in order of probability of patient compliance. 

10. A method according to any of claims 1 - 9, comprising displaying treatment 
characteristics likely to increase probability of patient compliance. 

1 1 A method according to any of claims 1-10, comprising displaying 
patient/health care provider interaction styles likely to increase probability of patient 
compliance. 

12. An apparatus operating in accord with the methods of any of claims 1-11. 

13. A digital data processing apparatus operating in accord with the methods of 
any of claims 1-11. 

1 4. A computer storage media for storing any of instructions and data for causing a 
digital data processing apparatus to operate in accord with the methods of any of 
claims 1-11. 
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APPENDKI 
to 



METHOD AND APPARATUS FOR PREDICTING AND IMPROVING 
PATIENT COMPLIANCE WITH MEDICAL TREATMENT 



© ParetoScope, Inc. 1997 
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EnrichMap® Health Care and Personal Opinion 
Questionnaire © ParetoScope, Inc. 1997 



Agree 
Completely 
1 2 



Do Not Agree 
At All 
4 5 



I'm almost always satisfied with the medical treatment 
I receive 

There are a lot of health care people that you can't trust 

1 0 Doctors sometimes seem to make decisions before I 

finish explaining my problems or asking all my 
questions 

I know people who do not exactly follow the doctor's 
advice and they seem to do just fine 
1 5 I never know what questions to ask when I go to the 
doctor with a problem 
I try to keep up with current medical information 

whether I have a problem or not 
Tve read or heard about new health care treatments that 
20 my doctor did not know about 

When I get sick or have a serious problem, I do my 

own research about the illness and treatments 
I feel I personally know enough about some medical 

problems and treatments that I feel comfortable 
25 giving advice about them 

The costs I pay for health care are reasonable 

There is so much information about what is healthy 
and what is not that it is impossible to make 
30 sense of it 

I often seek advice firom other people 

Tm a patient person 

35 I don't like to make long term plans 

The quality of many products has gone down 

I feel comfortable using the newest technologies 

40 

I am very good about planning things in order to keep 

my appointments 
You really do not have much control over what 

happens to you in life like an illness, it's just a 
45 matter of fate or luck 

I am pretty good about following healthy eating habits 
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I wear seatbelts as a driver and as a passenger in a car 
or truck all the time 

DSl.394630.4 
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APPENDIX n 
to 

METHOD AND APPARATUS FOR PREDICTING AND IMPROVING 
PATIENT COMPLIANCE WITH MEDICAL TREATMENT 

© 1997-8 Seth M. Powsner and ParetoScope, Inc. (as indicated) 
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//Routines are arranged alphabetically. 

//Program execution begins when PilotMain is called by the Pilot Operating 
system. 

//AppDBClose.c — Application Database Close; ® 1997-8 Seth M Powsner 



# include <Pilot,h> 
iinclude "AppDBGlobais . h" 
tinclude "AppDBClose.h" 

Err AppDBClose ( void ) 

{ 

Err error = 0; 



if (appDB) 

//error != DmResetRecordStates (appDB) ; // should be safer but... 
error |» DmCloseDatabase (appDB) ; 

} 

return error; 

) 

/♦Generic database close adapted from MemoPad.c 

per CodeWarrior Targetting Palm OS v. 1.2.1 pp.13 

Modification history 

980222 SMP . cosmetic 

970927 SMP initial coding 

*/ 

/*EOF *^ 

//AppDBClose.h; © 1997-8 Seth M Powsner 
extern Err AppDBClose (void) ; 

/*EOF */ 

//AppDBGlobais. c Application Database Globals; © 1997-8 Seth M Powsner 
» include <Pilot.h> 



DmOpenRef appDB; 

ULong appDBAppType; 

Char appDBName (dmDBNameLengthJ ; 

ULong appDBType; 

/♦Generic application database globals addapted from MemoPad.c 
per CodeWarrior Targetting Palm OS v. 1.2.1 pp.13 
Modification history 
980222 SMP cosmenic 
*/ 

/*EOF . » 

//AppDBGlobais. h; © 1997-8 Seth M Powsner 



extern DmOpenRef 

extern ULong 

extern Char 

^define appDBNaine Default 

extern ULong 

#define appDBTypeDefault 



appDB; 

appDBAppType; 

appDBNaine (dmDBName Length] ; 
"AppTestDB" 

appDBType ; 
'Data* • 



/*EOF 



//AppDBInfoInit.c; © 1997-8 Seth M Powsner 

tinclude <Pilot.h> 
#include "AppGenericDef s . h" 
# include "AppDBGlobais .h" 
#include "AppDBInfoInit .h" 
^include "AppGlobals.h" 
#include "DBOpen.h" 
# include "GetResource.h" 



33 



W0 99/63462 PCT/US99/12222 

» include "ResourceCommon.h" 

static char simplelnfot ] = "App DB info place holder"; 

5 Err AppDBInfoInit (DmOpenRef dbP) 

( 

LocallD appInfoID; 
VoidPtr appInfoP; 
LocallD dblD; 
10 UInt cardNo; 

VoidHand h; 

// Get appInfoID given DiuOpenRef via dbID and cardNo. 
if (DinOpenDatabaseInfo(dbP, &dbID, NULL, NULL, ficardNo, NULL) 
15 jj DmDatabaselnfo (cardNo, dbID, NULL, NULL, NULL, NULL, NULL, 

NULL, NULL, fiappInfoID, NULL, NULL, 

NULL) ) 

return ditvErrlnvalidParam; 
if {appInfoID == NULL) //create new applnfo if needed 

20 { 

h = DmNewHandle(dbP, sizeof simplelnfo) ; 
if (! h) return dmErrMemError; 
appInfoID = MemHandleToLocallD(h) ; 

DmSetDatabaselnfo (cardNo, dbID, NULL, NULL, NULL, NULL, 
25 NULL, NULL, NULL, fiappInfoID, NULL, NULL, 

NULL) ; 



30 



// Lock the appInfoID and copy in defaults from our default structure. 

appInfoP « MemLocallDToLockedPtr (appInfoID, cardNo); 
DmWrite (applnfoP, 0, &simpielnf o, sizeof simplelnfo); 

MemPtrUnlock (appInfoP) ; 
35 return OKreturnCode; 

/♦Generic database initialization adapted from MemoPad.c 
per CodeWarrior Targetting Palm OS v. 1,2.1 pp.13 
Modification history 
40 980222 SMP cosmetic 

970926 SMP initial coding 

/*EOF ' 

45 //AopDBInfoInit.h; © 1997-8 Seth K Powsner 
extern Err AppDBInfoInit (DmOpenRef dbPJ ; 
/*£0F 

//AppDBOpen.c — Application Database & Preference Open; © 1997-8 Seth M 
50 Powsner 

#include <Pilot.h> 

^include "AppDBGlobals .h" 

tinclude "AppDBInfoInit .h" 

» include "AppDBOpen.h" 
55 ^include "AppGlobals . h" 

^include "dbOpen.h" 

» include "GetResource .h" 

8 include "ResourceCommon.h" 

60 Err AppDBOpen (void) 

SystemPreferencesType sysPrefs; 

GetStringRscCopyN(appDBName, primaryDBName, appDBNameDe fault, 
65 sizeof (aopDBName) ) ; 

appDBAppType = GetTypeResource (primary DBAppType, appType) ; 
appDBType = GetTypeResource (prima ryDBType, appDBTypeDefault) ; 



70 



PrefGetPreferences (ssysPref s) ; 



34 



wo 99/63462 



PCTAJS99/12222 



if (! (appDB « DBOpen<appDBName, appDBType, appDBAppType, 

sysPrefs.hideSecretRecords ? 

dmModeReadWrite : (dmModeReadWrite I 

dmModeShowSecret ) ) ) ) 

return dmErrCantFind; 

return AppDBInfoInit (appDB) ; 

} 

/♦Generic database open and preference open adapted from MemoPad.c 
per CodeWarrior Targetting Palm OS v. 1.2.1 pp.13 
Modification history 
980222 SMP cosmetic 
970926 SMP initial coding 

/♦EOF ' 

//AppDBOpen.h ; © 1997-8 Seth M Powsner 
Err AppDBOpen (void) ; 

/*EOr * 

//AppGenericDefs.h — Application Generic Definitions for convenience % 
1997 Seth M Powsner 
^define OKreturnCode 0 

#define array Length (a) {sizeof (a) /sizeof (a (0] ) ) 

/*EOF 

//AppGlobals.c; © 1997-8 Seth M Powsner 
# include <Pilot.h> 
#include "AppGlobals .h" 



ULong appType; 

char appPreferences [appPrefLen] ; 

int appVersion; 

/♦Generic application globals, simplified from MemoPad.c 
per CodeWarrior Targetting Palm OS v. 1.2.1 pp.13 
Modification history 
980222 SMP cosmetic 
970926 SMP initial coding 

*/ . 
/♦EOF ^ *' 

/ /AppGlobals. h; ^' 1997-8 Seth M Powsner 
extern ULong appType; 

l^define appTypeDe fault 'AppT* 

#define appPrefLen 64 

extern char appPreferences [appPrefLenJ ; 

#define appPrefDef ault "rem\OxOOblank entry" 

extern int appVersion; 
#define appVersionDefault 100 



/♦ Generic Application Globals 
971102 SMP version num * lOO 
970926 SMP initial 
*/ 

/♦EOF 

//ApplicationHandleEvent.c — generic event application level event handler; 

© 1997-8 Seth M Powsner 

# include <Pilot.h> 

#include "ApplicationHandleEvent . h" 

#include "Handlers. h" 
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Boolean AppiicationHandleEvent (EventPtr event) 
I 

FontiPtr formP; 
Int formN; 
5 Boolean handled - falser- 

switch (event->eType) 
{ 

case (frmLoadEvent) : 
10 formP = FrmlnitFormC formN = event->data. f mLoad. formID) ; 

FrmSetActiveForm(formP) ; 

FrmSetEventHandler(fonnP, FormHandlerTable (forroN) ) ; 

handled « true; 

break; 

15 //case () : 

// break; 

} 

return handled; 

20 } 

/♦Modification history 
980303 SMP cosmetic 
970922 SMP initial 

*/ , 
25 /*EOF 

//AppiicationHandleEvent. h © 1997-8 Seth M Powsner 

extern Boolean AppiicationHandleEvent (EventPtr event); 

/*EOF 

30 



40 



50 



65 



70 



//AppResourceList.c — allows correct loading of resource file; © 1997-8 
ParetoScope 

#include <BuildRules .h> 

35 // Application resources. 

char *AppResourceList { ) = I 

":Rsc:" RESOURCE FILE PREFIX "Q20.rsrc", 



}; 



/* Application Resource list module addapted from MemoPadRsc.c 
per CodeWarrior Targetting Palm OS v. 1,2.1 pp.13 
Modifications 

980303 SMP cosmetic 
45 971115 SMP reference BuildRules.h and let it set file prefix 

971102 SMP Q20 put in • ' 

971012 SMP simplified version 



*/ 

/*EOF 



//AppResourceList.h © 1997-8 ParetoScope 
#define StringAlert 9000 
#define ThreeStringAlert 9001 
#define categoryConstants 9950 
55 #define nameEtcFomi 1000 

#define resultForm 1100 
#define thankYouForm 4100 
#define thankYouCode 90 
#define answerMultipliers 9 
60 fdefine lastName 10 

#define firstName 20 
#define ciientNumber 30 
#define resultField 40 
#define resultText 90 



/* Specific Application Resource ID's 

971122 SMP added result fields & specific forms 

971121 SMP added categoryConstants 

971102 SMP old Palm Tutorial definitions removed 
971012 SMP initial based on Palm Tutorial 20 MemoPadRsc.h 
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/*EOF 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



//HandlerHelper.c - convert event info to resource related info for 
FormEiemHandler; © 1991-8 Seth M Powsner 

^include <Pilot.h> 

#include "ConunonFormGlobals .h" 

# include "CommonFormGlobalFixup.h" 



{'tBTN', 'tPBN' 



#define ctlTypeListLen 6 
ULong ctlTypeList(ctlTypeListLenJ 
•tREP* ^; 

void Common FormGlobalFixup (void) 
( 

elementRscType « ' ' ; 

element ID ^ 0; 

eleraentPtr ^ NULL; 

formID = FrmGetActiveFormlDO ; 

formPtr = FrmGetActiveFonn( ) ; 

switch (event. eType} ( //from Event. h enum events, 
//case (nilEvenc) : 
//case (penDownEventI : 
//case (penUpEvent) : 
//case (penMoveEvent) : 
//case ( keyDownEvent ) : 
//case (winEnterEvent) : 
//case (winExitEvent) : 



•tCBX', 'tPOT*, 'tSLT', 



// 

case (ctlEnterEvent) : 

case (ctlExitEvent) : 

case (ctlSelectEvent) : 

case (ctlRepeatEvent) : 

case (popSelectEvent) : 
was after IstExitEvent 

event , data . ctlEnter . controlID; 

event . data . ctlEnter . pControl ; 

< ctlTypeListLen) 



break; 



// out of order from enum events, 
elementID - 
element Ptr = 

if (0<= { (ControlPtr)eiementPtr)->style 
&& ( (ControlPtr) eiementPtr) ->style 



ctlTypeList( ( (ControlPtr) elementPtr) ->stylel ; 

break; 



elementRscType 



case (IstEnterEvent) : 
case (IstSelectEvent) : 
case (IstExitEvent) : 



elementRscType = 'tLST'; 

elementID = event, data. IstEnter. listID; 

elementPtr = event .data . IstEnter .pList; 

break; 



case (fldEnterEvent) : 
case ( fldHeightChangedEvent) : 
case ( f IdChangedEvent ) : 



case (tblEnterEvent) : 
case (tblSelectEvent) ; 
case (tblExitEvent) : 
was after frmCloseEvent 



elementRscType = 'tFLD'; 
elementID = event . data . fidEnter. fieidID; 
elementPtr » event .data . fidEnter. pFieid; 
break; 



// out of order from enum events. 
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elementRscType « ' tTBL ' ; 

elementID « event . data . tblEnter, tablelD; 

element Ptr = event. data. tblEnter.pTable ; 

break; 



case (daySeiectEvent) : 
case (menuEvent) : 



break; 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



elemencRscType « 'MENU'; 

elementID « event .data. menu. it emID; 

break; 



//case (appStopEvent) : 

//case ( f rmLoadEvent ) : 

//case {f rroOpenEvent) : 

//case (frmGotoEvent) : 

//case (frmUpdateEvent) ; 

//case {f rmSaveEvent) : 

//case (frmCloseEvent) : 

//case (tblExitEvent) : 
default: 



break; 



} 

/♦Modification history 
980303 SMP cosmetic 
970925 SMP initial 
*/ 

/*EOF 



//CoramonFomiGlobalFixup.h © 1997-8 Seth M Powsner 
extern void CoramonFormGlobalFixup (void) ; 



/*EOF 



/ / Common Fo rraG 1 Ob a 1 s . c 
Powsner 



Commonly used form / event info; S) 1997-8 Seth M 



#include <Pilot.h> 

# include " Common FormGloba Is . h" 



Int 

VoidPtr 
ULong 
EventType 
Int 



elementID; 
element Ptr; 
elementRscType; 
.event; 
formID; 



FormPtr formPtr; 

/♦Adapted from MemoPad.c per CodeWarrior Targetting Palm OS v. 1.2.1 pp.13 

Modification history 

980303 SMP cosmetic 

970925 SMP initial 

•/ 

/*EOF */ 

//CommonFormGlobals.h © 1997-8 Seth M Powsner 

extern Int elementID; 
extern VoidPtr elementPtr; 

extern ULong elementRscType; 

extern EventType event; 
extern Int formlD; 
extern FormPtr forroPtr; 



/*EOF 

65 //CustomHandlers.c; © 1997-8 ParetoScope 

#include <Pilot.h> 
#include "AppResourceList . h" 
#include "CommonFormGlobals.h" 
70 #include " Common FormGlobalFixup.h" 
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10 



15 



#inclucle "CustomHandlers.h" 
#include "GetResource.h" 
Sinclude "Handlers. h" 
#include "ResourceCommon, h" 
#include "ScoreCalculation.h" 
#include "StoreFieidlnput . h" 
^include "Storelnput . h" 

Boolean NameEtcFonnHandler (EventPtr eventP) 
{ 

Boolean handled » false; 

event = *eventP; 
CoinmonFo rmGloba 1 s 

Common Fo nnGi oba 1 Fixup { ) ; 



// Copy event data into 



20 



25 



30 



35 



40 



45 



// Open, assume it's 
// Draw the form 



// clear out checkboxes 
// Leave rest to 



switch (event .eType) { 

case (f rmOpenEvent) : 
loaded & activated. 

// restore fields if needed 
FntiDrawFonn(formPtr) ; 
handled = true; 
break; 
case (ctlSelectEvent) : 

if (eiementID - formID nextButtonID) //"start" is a. 
relabeled "next" button 

Clearlnput ( ) ; 
handled = FormElemHandler () ; 
GenericControlHandler 
break; 
case { frmCloseEvent) : 
SaveFieldlnput () ; 
//handled = true; 
break; 
default: 

handled = FormElemHandler ( ) ; 

} 

return handled; 

I 

Boolean ResultFormHandler (EventPtr eventP) 
{ 

Boolean handled = false; 

event = * eventP; 
CommonFo rmG loba 1 s 

CommonFormGlobal Fixup ( ) ; 



// Copy event data into 



50 



55 



60 



65 



70 



switch (event. eType) { 

case (f rmOpenEvent) : 
loaded & activated. 

ScoreCalculationO ; 

RestoreFieldlnput ( ) ; 

FrmDrawForm(formPtr) ; 

handled = true; 

break; 
case (CtlSelectEvent): 

if (elementID - formID 

"back" button 

Clearf ieldlnput ( ) ; 

handled = FormElemHandler ( ) 
GenericControlHandler 

break; 
case (frmCloseEvent) : 

// save fields if needed 

//handled = true; 

break; 
default: 

handled - FormElemHandler ( ) 

) 

return handled; 



// Open, assume it's 



// Draw the form 



backButtonID) //"done" is a relabeled 

// clear out name, etc 
// Leave rest to 
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} 

Boolean ThankYouFormHandler (Event Ptr eventP) 

5 ^ Boolean handled false; 

char ♦ cp; 

event = *eventP; // Copy event data into 

CommonFo rmG lobal 5 
10 CoiranonForxnGlobalFixup { ) ; 

switch (event . eType ) { 

case (frmOpenEvent) : // Open, assume ifs 

loaded & activated. 

15 FrmDrawFormtforraPtr) ; // Draw the form 

handled = true; 
break; 
case (keyDownEvent ) : 

cp = GetStringResource (formlD thankYouCode, "\26") ; 
20 if (event.data. keyDown.chr = *cp) 

{ 

FrmGotoForm ( resultForm) ; 

handled « true; 

} 

25 unlockStringResource (1) ; 

break; 
default: 

handled » FormElemHandler () ; 

} 

30 return handled; 

) 

/* Modification history 
980222 SMP cosmetic 
35 971122 SMP initial coding 

*/ 

/*EOF *f 



40 



45 



//CustomHandlers.h © 1997-3 ParetoScope 

extern Boolean NameEtcFormHandier (Event Ptr event?); 
extern Boolean ResultFormHandler (Event Ptr eventP) ; 
extern Boolean ThankYouFormHandler (Event Ptr eventP); 
/*EOF ^ ^ ■ 



//DBDefaultCompare.c — passed to system routines to order database; © 1997-8 
Seth M Powsner 

# include <Pilot.h> 
50 #include "AppDBGlobals .h" 

#include "AppDBInfoInit . h" 
linclude "DBDefaultCompare . h" 

#define plsmaller -1 
55 #define equal 0 

#define pllarger 1 

short DBDefaultCompare (void *pl, void *p2, /* only first two parameters are 
used*/ 

60 short other, SortRecordlnfoPtr recpl, 

SortRecordlnfoPtr recp2, VoidHand appInfoH) 

{ 

ULong lenl; 
ULong len2; 
65 short result; 

lenl = MemPtrSize(pl) ; 
len2 « MemPtrSize(p2) ; 

70 if (lenl 0) 
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result = (len2 — 0) ? equal : plsmaller; 
else if (len2 — 0) 

result = pllarger; 

else 

for (result « equal, lenl « (lenl <= len2) ? lenl : len2; 

result »= equal && lenl; ++ ( (CharPtr)pl> , 

++((CharPtr)p2), —lenl) 

if (*(CharPtr)pl < * (CharPtr)p2) 

result = plsmaller; 
else if {* (CharPtr)pl > * (CharPtr) p2) 

result *" pllarger; 

return result; 

) 

/*Modif ication history 

980222 SMP cosmetic changes 

971115 SMP call sequence modified for new SDK 

970928 SMP original 

*/ 

/♦EOF 

//DBDefaultCompare.h;© 1997-8 Seth M Powsner 

extern DmComparF DBDef aultCompare/* see <DataMgr.h> */; 



/*EOF 



// DBOpen.c; © 1997-8 Seth M Powsner 

# include <Pilot.h> // all the system toolbox headers 

#include "DBOpen.h" 

DmOpenRef DBOpen (CharPtr dbName, ULong dbType, ULong appType, UInt mode) 
{ 

UInt card; 
LocallD dbID; 
UInt dbAttrs; 
DmOpe nRe f dbT emp P ; 

dbTempP = DmOpenDatabaseByTypeCrea tor (dbType, appType, mode); 

if (idbTempP && (mode > draModeReadOnly) ) // need to create datebase 

if ( !DmCreateDatabase(0 /*card*/, dbName, appType, dbType, false 
/*not resource*/)) 
I 

dbTempP = DmOpenDatabaseByTypeCrea tor (dbType, appType, mode); 
if { IDmOpenDatabaselnfo (dbTempP, &dbID, NULL, NULL, ficard. 



NULL) 
NULL, 

NULL, NULL) 



NULL) ) 



&& !DmDatabaseInfo(0, dbID, NULL, SdbAttrs, NULL, NULL, 

NULL, NULL, NULL, NULL, 

) 

( 

dbAttrs 1= draHdr At tr Backup; // assume baclcup 
if (DmSetDatabaselnfo (0, dbID, NULL, SdbAttrs, 

NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 



dbTempP « NULL; //something's wrong with new db 

} ) } 
return (dbTempP) ; 

) 

/♦Generic routine for manipulating PalmOS database adapted from MemoPad.c 
per CodeWarrior Targetting Palm OS v. 1.2.1 pp.13 
Modification history 
980222 SMP cosmetic 
970920 SMP initial 

/*EOF • */ 

// dbOpen.h; © 1997-8 Seth M Powsner 
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extern DmOpenRef DBOpen (CharPtr dbName, ULong dbType, ULong appType, OInt 

mode) ; 

/*EOF *^ 

//DBWriteOrdered.c— © 1997-8 Seth M Powsner 

# include <Pilot.h> 
linclude "AppDBGlobals .h" 
# include "AppGenericDef s .h" 
# include "DBDef aultCompare , h" 
# include "dbWriteOrdered.h" 

Err DBWriteOrdered (VoidPtr bufferP, ULong bufferLen, Int category) 

{ 

UInt attr; 
Err error; 
Err errorTemp; 
VoidHand h = NULL; 

UInt index = dmMaxRecordlndex; 

// copy buffer into new record at end of database and set category 
error = DmWrite (MemHandieLock (h = DitiNewRecord (appDB, &index, 
bufferLen) ) , 

0, bufferP, bufferLen); 
if ({errorTemp « MemHandleUnlock (h) ) != OKreturnCode && lerror) error » 

errorTemp; ^ . 

if ((errorTemp « DmReleaseRecord(appDB, index, true)) !- OKreturnCode 

lerror) error = errorTemp; 
if ('.error) 

if (! (error = DmRecordlnfo (appDB, index, &attr, NULL, NULL))) 

attr = (attr & -dmRecAttrCategoryMask) | (category & 
dmRecAttrCategoryMask) ; 

if ('(error = DmSetRecordlnfo (appDB, index, &attr, NULL))) 
// detach the record and insert it into correct place 
// use same compare routine as for db sorting 
if (! (error = DmDetachRecord (appDB, index, &h) ) ) 

index = DmFindSortPositionVlO (appDB, MemHandieLock (h) , 

DBDef aultCompare, 0); 

if ( ! (error = MemHandleUnlock (h) ) ) 

error « DraAttachRecord(appDB, &index, h, NULL); 

I 

} 

return error; 

} 

/♦Modification history 
980303 SMP cosmetic 
970928 SMP initial 

/*EOF ' 



//dbWriteOrdered.h © 1997-8 Seth M Powsner 

extern Err DBWriteOrdered (VoidPtr bufferP, ULong bufferLen, Int category); 



/*EOF 



//DrawStringlnBounds.c— Draw String in bounds (box) for lists; © 1997-8 

Seth M Powsner 

#include <Pilot.h> 

^include "drawstring InBounds . h" 

void DrawStringlnBounds (CharPtr stringP, RectanglePtr bounds) 

Int textLen, width; 

Boolean fits; 
FontID currFont; 
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currFont = FntSetFont (stdFont) ; // save and set font (a Pilot 
convention) 

width = bounds ->extent.x - 2; // determine length of text that 

5 will fit 

textLen = StrLen (stringP) ; 

FntCharsInWidth (string?, &width, &textLen, fifits); 

WinDrawChars (StringP, textLen, bounds->topLeft .x, bounds->topLef t . y) ; 
10 //draw it 

FntSetFont (currFont) ; // restore the font 

) 

/♦Generic Application Resource list module addapted from MemoPad.c 
per CodeWarrior Targetting Palm OS v. 1.2.1 pp.13 
15 Modifications 

980303 SMP cosmetic 

971012 SMP simplified version 

*/ 

/*EOF */ 

20 

//DrawStringlnBounds.h © 1997-8 Seth M Powsner 

extern void DrawStringlnBounds (CharPtr stringP, RectanglePtr bounds); 
/*EOF -*/ 

25 //EventLoop.c — get and dispatch events *till stopped; © 1997-8 Seth M 

Powsner 

# include <Pilot.h> 

#include "ApplicationHandleEvent .h" 

# include "EventLoop.h" 



30 



35 



45 



50 



void EventLoop(void) 
{ 

Word error; 
EventType event; 



do I 

EvtGetEvent (Sevent, evtWaitForever) ; 
if (SysHandleEvent (&event) ) continue; 
if {MenuHandleEvent {0, &event, &error) ) continue; 
40 if (ApplicationHandleEvent (&event) ) continue; 

FrmDi spa tchEvent (&e vent) ; 

} 

while (event. eType != appStopEvent) ; 

} 



/♦Generic application main routine adapted from MemoPad.c 

per CodeWarrior Targetting Palm OS v. 1.2,1 pp.13 
980220 SMP cosmetic changes 
*/ 

/♦EOF */ 



//EventLoop.h © 1997-8 Seth M Powsner 
extern void EventLoop{void) ; 
55 /*EOF */ 

/♦EOF -*/ 

60 //GenericControlHandler .c — Generic Control event Handler; © 1997-8 Seth M 

Powsner 

#include <Pilot.h> 
#include "CommonFormGlobals .h" 
65 #include "GenericControlHandler .h" 

# include "GetResource.h" 
# include "ResourceCommon.h" 
» include "TestCode.h" 

70 static Boolean GotoFormSafely {int f ormID) ; 
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Boolean GenericControlHandler (void) 
{ 

int effectivelD; 

int fonnMultiple » GetlntResourcediormalFormMultiple, 

fonnMultipleDefault) ; 

Boolean handled = false; 

effectivelD = elementID >« formID ? elementID - formID : elementID % 
fonnMultiple; 



switch (event. eType) { 

case (ctlSelectEvent) : 

switch (effectivelD) { 

case(nextButtonlD) : 

15 ( 

GotoFormSafely (GetlntResourceffomID + nextFormSpec, 

■ formID + fonnMultiple) ) ; 

handled - true; 
break; 

20 ) 

case (backButtonID) ; 

GotoFonnSafely(GetIntResource( formID + prior FormSpec, 

formID - fonnMultiple)); 
25 handled « true; 

break; 
} 

case(restartButtonlD) : 
{ 

30 GotoFormSafely (GetlntResource (f irstFormRscID, 

first FormDefault) ) ; 

handled = true; 

break; 

) 

35 default: 

{ 

GotoFormSafely (GetlntResource (formID + nextFormSpec, 

formID + fonnMultiple)); 

handled « true; 

40 ) 

1 

break; // ctlSelectEvent case done 
case (ctlRepeatEvent) : 
break; 

45 case (keyDownEvent) : 

switch (event.data.keyDown.chr) i 
case (pageUpChr) : 
{ 

TestCode (formID) ; 
50 //if ( ITestcode (fom) ) 

// pageUpKeyProcessingO ; 

handled » true; 

break; 

I 

55 case (pageDownChr) : 

{ 

// pageDownKey Processing ( ) ; 

//handled = true; 

break; 

60 ) 

default: 

{ 

//handled « true; 
break; 

65 ) 

} 

default: ; 
) 

return handled; 

70 ) 
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Boolean GotoFomSafely (int fonciID) 
{ 

VoidHand tempH; 

5 if {firstFormDe fault <« formID 

&& formID <= GetlntResource (lastFormRscID, lastFormDefault) 
&& NULL {tempH = DmGetlResource { ' tFRM\ formID))) 

{ 

DmReleaseResource (tempH) ; 
10 FrmGotoFonn(fonnlD) ; 

} 

return NULL != tempH; 

/* control handler to interpret any form's controls based on ResourceCommon . h 

15 980303 SMP cosmetic 

971116 SMP brea)cout debugging code and database code 

971102 SMP implement some of generic functions 

970925 SMP initial 
*/ 



20 



25 



35 



45 



/*EOF 



//GenericControlHandler.h © 1997-8 Seth M Powsner 
extern Boolean GenericControlHandler (void) ; 

/*EOF 

//GenericFormHandler.c; © 1997-8 Seth M Powsner 

30 #include <Pilot.h> 

#include "ConimonFormGlobals . h" 
# include "CommonFormGlobalFixup.h" 
#include "GenericFormHandler , h" 
#include "Handlers. h" 



#include "Storelnput .h" //used in frmClose for checlcbox storage 
#include "GetObjectPtr .h" 



Boolean GenericFormHandler (EventPtr eventP) 
40 { 

Boolean handled = false; 



int cID; //used for checkbox save and restore 

ControlPtr ctlP; 

event = *eventP; // Copy event data into 

Common Fo rmGlobal s 

CoimnonFormGlobalFixup ( ) ; 

50 switch (event.eType) { 

case (frmOpenEvent) : // Open, assume it's 

loaded & activated. 

// Initialize the form 

if needed 

55 if (2000 <= formID formID <= 3900 // Not really generic 

&& NULL != (cID = Restorelnput (formID) ) 
&& NULL != (ctlP = GetObjectPtr (cID) ) ) 
CtlSetValue(ctlP, 1) ; 
FrmDrawForm(formPtr) ; // Draw the form 

60 handled = true; 

break; 

case (frmCloseEvent) : // Not really generic, 

belongs in question form handler 

if (2000 <= formID && formID <= 3900) 
65 { 

for (cID - formID + 10; cID <= formID + 50; cID 10) 

//save checkboxes 

if (CtlGetValue(ctlP = GetObjectPtr (cID) ) ) 
break; 

70 if (cID <= formID + 50) 
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SaveInput{formID, cID) ; 

} 

break; 
default: 

handled = FomElemHandler ( ) ; 

) 

return handled; 

) 

/* Modification history 
980222 SMP cosmetic 

971123 SMP Temporarily added checkbox save / restore code 

970925 SMP Initial coding 

/*EOF 

//GenericFormHandler.h ® 1997-8 Seth M Powsner 
extern Boolean GenericFormHandler (Event Ptr event); 

/*EOF 

// GetObjectPtr.c— Get (lookup) Object's Pointer based on integer ID; © 
1997-8 Seth M Powsner 
#include <Pilot.h> 
#include "GetObjectPtr .h" 

VoidPtr GetObjectPtr (Word objectID) 

FormPtr frm; 

Word obj Index; 

if {(objindex = FrmGetNumberOfObjects (f rm = FrmGetActiveForm( ) ) ) 0) 
do 

if (FrmGetObjectldlfrro, —objindex) == objectID) 
return (FritiGetObjectPtr ( f rm, objindex)); 
while (objindex != 0); 
return (NULL) ; 



/♦Generic routine adapted from MemoPad.c per CodeWarrior Targetting Palm OS 
V. 1.2.1 pp.13 
Modification history 
980303 SMP cosmetic 

970907 SMP modified from tutorial to make it safe for non-existent IDs 

*/ 

//GetObjectPtr.h © 1997-8 Seth M Powsne 
extern VoidPtr GetObjectPtr (Word objectID); 

./*EOF */ 

//GetResource.c — Get (string and other) Resource (s) in coverted form; © 



1997-8 Seth M Powsner 
#inciude <Pilot,h> 
ttinciude "GetResource . h" 
#include "StrAToType . h" 
^include "StrCopyN.h" 

^define tempHLen 8 

static VoidHand tempH [tempHLen] ; 

static Int tempLast = tempHLen; 

Int GetlntResourcednt RscID, Int not FoundRe turn) 
{ 

Int t; 
CharPtr p; 

p « GetStringResource {RscID, NULL); 
t « p ? StrAToKp) :• notFoundReturn; 
UnlockStringResource(l) ; 
return t; 

} 
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CharPtr GetStringResource (Int RscID, CharPtr not FoundRe turn) 

^ if (— ten¥>Last < 0) return notFoundReturn; 

if (! (tempHftempLastJ DraGetlResource {strRsc, RscID))) return 
notFoundReturn; 

return MeinHandleLocJc{tenipH[tempLast) ) ; 

CharPtr GetStringRscCopyN (CharPtr dst, Int RscID, CharPtr notFoundReturn, 
ULong size) 

* StrCopyN(dst, GetStringResource (RscID, notFoundReturn), size) ; 
UnlockStringResource ( 1 ) ; 
return dsc; 

} 

ULong GetTypeResourcednt RscID, (JLong notFoundReturn) 
( 

ULong type; 
CharPtr p; 

p « GetStringResource (RscID, NULL) ; 
type = p ? StrAToType (p) : notFoundReturn; 
UnlockStringResource ( 1 ) ; 
return type; 

} 

void UnlockStringResource (Int unlockCnt) 
{ 

if (unlockCnt > 01 
{ 

if (tempLast < 0) 

{ 

if (unlockCnt + tempLast <« 0) 
{ 

tempLast += unlockCnt; 
unlockCnt « 0; 

) 

else 

{ 

unlockCnt tempLast; 
tempLast - 0; 

} 

if (unlockCnt + tempLast > terapHLen) unlockCnt = tempHLen - 

tempLast; 

for ( ; unlockCnt > 0 ; ++tempLast, — unlockCnt) 
if (tempHt tempLast 1 ) 
( 

ErrNonFatalDisplaylf ( 

MemHandleUnlock ( tempH ( tempLast ] ) II 
DmReleaseResource(tempHCtempLast) ) , 

"UnlkStrR failed"); 
tempHl tempLast] « NULL; 

) 

) 

} 

/*Modif ication history 
980304 SMP cosmetic 
970925 SMP initial 

- - */ 

/*EOF ' 

//GetResource.h © 1997-8 Seth M Powsner 

extern Int GetlntResource (Int RscID, Int notFoundReturn); 
extern CharPtr GetStringResource (Int RscID, CharPtr notFoundReturn); 
extern CharPtr GetStringRscCopyN (CharPtr dst, Int RscID, CharPtr 
notFoundReturn, ULong size); 

extern ULong GetTypeResourcednt RscID, ULong notFoundReturn); 

extern void UnlockStringResource (Int unlockCnt); 

/*EOF 
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//GoToRecord.c — after Find function, may goto record; © 1997-8 Seth M 
Powsner 

# include <Pilot.h> 
#include "AppDBGlobals.h" 
^include "GetResource.h" 
#include "GoToRecord.h" 
# include "ResourceCommon.h" 

void GoToRecord (GoToParamsPtr goToParams, Boolean iaunchingApp) 
{ 

UInt attr; 
EventType event; 
UInt goToForm; 
Word recordNum; 
ULong uniquelD; 

recordNum = goToPa rams -> recordNum; // identify passed rec num 
DinRecordInfo(appDB, recordNum, fiattr, fiuniquelD, NULL); 

if (! IaunchingApp) 

FrmCloseAllForms () ; // assume app may be running and needs to 

clean up 

DmFindRecordBylD (appDB, uniquelD, &recordNum) ; // incase of re- 
ordering, use unique ID 
) 

// Send events to load and goto a form selecting the matching text. 
goToForm « GetlntResource (goToFormRscID, firstForroDefault) ; 

MemSet (fievent, sizeof (EventType) , 0); 

event. eType = f rmLoadEvent; 

event . data . f rmLoad . f onalD = goToForm; 

event. eType = f rmGotoEvent; 

event. data . frmGoto. recordNum = recordNum; 

event .data. frmGo to. ma tchPos = goToParams->matchPos ; 

event .data . frmGoto. matchLen = goToParams->searchStrLen; 

event .data. frmGoto. mat chFieldNum = goToParams->matchFieidNum; 

event. data. frmGoto. formID = goToForm; 

EvtAddEventToQueue (&event) ; 

) 

/♦Generic module addapted from MemoPad.c per CodeWarrior Targetting Palm OS 

V. 1.2.1 pp.13 

Modification history 

980221 SMP cosmetic 

971012 SMP simplified version 

V 

/*EOF *' 

//GoToRecord.h © 1997-8 Seth M Powsner 

extern void GoToRecord (GoToParamsPtr goTo Pa rams, Boolean iaunchingApp); 
/*EOF 

//Handlers. modified for Emap; © 1997-8 ParetoScope 

#include <Piiot.h> 

#include "AppResourceList . h" 

#include "CustomHandlers . h" 

#include "CorranonFormGlobais .h" 

tinciude "GenericControlHandler.h" 

#include "Handlers. h" 



#include "GenericFormHandler.h" 

FormEventHandlerPtr FormHandlerTablednt fonriN) 
{ 

switch (formN) { 
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// case (someSpecialFom) : return GenericFormHandler; // define in 

AppResourceList . h 

case (nameEtcFonti) : return NameEtcFormHandler; 

case (resultForro) : return ResultFormHandler; 

5 case (thankYouForm) : return ThankYouFormHandler; 

default: return GenericFormHandler; 

) 

} 

10 Boolean FonnEiemHandler (void) 

{ 

Boolean handled - falser- 

switch (eiementRscType) { 
15 case CMBAR'): //Menu Bar (higher in 

EventLoop.c) 

breaks- 
case ('MENU'): //Menu (item) 
switch (element ID) { 
20 default: handled = false; 

} 

break; 

case CtBTN'); // Button 

switch (elementID) { 
25 default: 

switch (formID) i 

default: handled = GenericControlHandler ( ) ; 
} 

} 

30 break; 

case CtCBX'): //Check Box 

switch (elementID) { 

default: handled ^ GenericControlHandler () ; 
} 

35 break; 

case CtFLD') : //Field 
switch (elementID) ( 
default : ; 
) 

40 break; 

case CtPBN'): //Push Button 

switch (elementID) { 

default: handled » GenericControlHandler () ; 
} . . 

45 break; 

case CtPUT'): //Popup Trigger * 

switch (elementID) ( 
default : ; 
} 

50 break; 

case CtREP'): //Repeating Button 

switch (elementID) ( 

default: handled = GenericControlHandler () ; 
} 

55 break; 

case CtSLT'): //Selector Trigger 

switch (elementID) ( 
default: ; 
) 

60 break; 

case CtTBL') : //Table 
switch (elementID) { 
default : ; 
} 

65 default: handled = GenericControlHandler () ; 

) 

return handled; 

) 

70 /* Form & Form Element handlers that may be customized 
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Modifications 

980304 SMP cosmetic 



971102 SMP fixups 
970924 SMP initial 
*/ 

/*EOF 



/ /Handlers. h © 1997-8 ParetoScope 

extern FormEvent Handle rPtr FormHandlerTabie (Int fonuN) ; 
10 extern Boolean FormEleraHandler {void) ; 



/*EOF 



// Parse. c — parse (floating numbers); © 1997-8 Seth M Powsner 

15 tinclude <Pilot.h> 

#inciude <ctype.h> 
#inciude "Parse. h" 

double ParseFloat (char **p) 
20 ( 

char *c = ♦p; 
Boolean negative « falser- 
double value - 0.0; 
double digitValue = 1.0; 

25 

SkipSpaces (&c) ; 
if Cc =-•-•) 

{ 

negative » true; 
30 C++; 

) 

else if (*c '+') 
C++; 

while CO' <= *c && *c '9*) // (isdigit (*c) ) 
35 value « value * 10.0 + (float) (»c++ - '0'); 

if (*c == ' . •) 
{ 

C++; 

while CO' <- *c && *c <= '9') // (isdigit (*c) ) 

40 ( 

digitValue *= 0.1; 

value += ('C++ - ' 0 ' ) *digitVaiue; 

} 

) 

45 *p = c; 

return negative ? -value : value; 
} // end parseFloat 

void SkipSpaces (char **p) 
50 I 

while (**p ' * II **p '\t' II **p = 'Nn') // (isspace (♦*p) ) 

(*P)++; 
return ; 

1 

55 

/♦ Modification history 
980222 SMP cosmetic 

971125 SMP Eliminate ischar for Pilot linking 

971121 SMP Initial coding, Flp routines would not link correctly so. 

60 •/ 

/*EOF */ 

//Parse. h © 1997-8 Seth M Powsner 
extern double ParseFloat (char **p) ; 
65 extern void SkipSpaces (char **p) ; 



/*EOF 



//PilotMain.c - called by emulator, returns error code; © 1997 Seth M Powsner 
70 #include <Pilot.h> 
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^include "AppGenericDef s . h" 
# include "AppDBinfoInit .h" 
^include "EventLoop.h" 
# include "GoToRecord.h" 
# include "InitAppDBInfo.h" 
^include "Search. h" 
#include "StartApplication.h" 
ttinclude "StartForm.h" 
#include "StopApplication.h" 
^include "SyncNotif ication.h" 

DWord PiiotMain(Word and, Ptr cmdPBP, Word launchFlags) 
{ 

switch (cmd) { // commands are defined in SysteraMgr.h 

case (sysAppLaunchCmdNormal Launch) : 

if (StartApplicationO OKreturnCode) 
{ 

StartFormO; // start / restart 
EventLoop( ) ; 
StopApplicationO ; 
) 

breaks- 
case (sysAppLaunchCmdFind) : 

Search ( (FindParamsPtr) cmdPBP) ; 
break; 

case (sysAppLaunchOndGoTo) : 

if (launchFlags & sysAppLaunchFlagNewGlobals) 
{ 

if ( IStartApplication ()) 
{ 

GoToRecordC (GoToParamsPtr) cmdPBP, true) ; 
EventLoop ( ) ; 
StopApplication ( ) ; 
) 

} 

else 

GoToRecord( (GoToParamsPtr) cmdPBP, false}; //running, just 

show record 

break; 

case (sysAppLaunchCmdSaveData) : ' 

FrmSaveAllFormsO ; //save data, possibly sort db before 

possible find 

break; 

case (sysAppLaunchCmdSyncNotify) : 

SyncNotificationO ; //may need to recheck db 
break; 

case (sysAppLaunchCmdlnitDatabase) : //need to fixup app data in db 
(eg, categories) 

;^pDBInfolnit ( ( {SysAppLaunchCmdInitDatabaseType*)cmdPBP)->dbP) ; 
break ; 

} 

return 0; 

/♦Generic application luain routine adapted from MemoPad.c per CodeWarrior 

Targetting Palm OS v. 1.2.1 pp.13 

Modification history 

980220 SMP cosmetic changes 

970922 SMP initial 

*/ 

/*EOF */ 

// ResourceCommon.h © 1997-8 Seth M Powsner 

// tSTR resource ID's used to navigate forms and control application 
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10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



#define f irstFormRscID 
#define f irstFomiDefault 
tdefine norma IFomiMultiple 
between forms 

Idefine formMultipleDe fault 
#define lastFormRscID 
#define last FormDe fault 
^define appTypeRsc 
#define appVersionRsc 
#define appHeaderStr 
ttdefine goToFormRscID 
ttdefine categoryOODefauitName 
^define categoryOlDefaultName 
#deflne category02Def aultName 
tdefine category03Def aultName 
^define categoryOlDefaultName 
#define category05Def aultName 
#define category06Def aultName 
#define category07Def aultName 
#define categoryOSDefaultName 
#define category09Def aultName 
#defLne categorylODefaultName 
^define category llDef aultName 
#define categoryl2DefaultName 
#define categoryl3Def aultName 
#defxne categoryl4Def aultName 
#define categorylSDefaultName 
#define primaryDBName 
#define primaryDBType 
Ifdefine prima ryDBAppType 
# define secondaryDBName 
#define secondaryDBType 
#define seconda ryDBAppType 
#define tertiaryDBName 
#define tertiaryDBType 
#define tertiaryDBAppType 



9999 
1000 



9998 



// normal increment 



9997 



100 

8900 
9996 

9995 
9994 
9993 
9989 

(categoryOODefaultName-1) 
(categoryOODefaultName-2) 
(categoryOODef aultName-3 ) 
(categoryOODefaultName-4 ) 
(categoryOODef aultName-5) 
{categoryOODef aultName- 6) 
{categoryOODef aultName-7 ) 
( categoryOODef aultName-8) 
(categoryOODef aultName-9 ) 
(categoryOODef aultName-10) 
(categoryOODef aultName-11 ) 
(categoryOODef aultName-12 ) 
( categoryOODef aultName- 1 3 ) 
(categoryOODef aultName-1 4 > 
( categoryOODef aul tName- 1 5 ) 
9973 

(primaryDBName- 1 ) 

(primaryDBName -2 ) 

(primaryDBName- 3 ) 
(primaryDBName-4 ) 

(primaryDBName- 5 ) 

( primaryDBName- 6 ) 

{ primaryDBName- 7 ) 

(primaryDBName- 8) 



// for system find invocations 



// when normal increment not 



// tSTR resources whose IDs' are relative to each forms* ID 

#define answerLabel for Form 0 // answer label instead of formID 
as string 

#define nextFormSpec 1 
desired, 

// -1 not allowed 

#define priorFormSpec" 2 H when normal decrement not 

desired, , ^ , 

// -1 not allowed, -2 for pop 

/* tSTR resources whose IDs' are relative to each form element's ID (or group 

ID) * ^ 

so individual resource, then group, then form's tSTR's are searched 
group IDs are added to from ID to make an effective resource ID 
form input element resource ID'S should go by 10' s 

if a element's ID is less than the form ID, then offset if MOD multiple 

group ID is handled as usual 
home form for element / group is used as back up at element & group steps 



*/ 

#define answerValue 
of implicit 
#define answerLabel 
label 

#define answerDef ault 
^define answerMaximum 
#define answerMinimum 
ttdefine answerJump 
default, FormID 
#define mustAnswer 
#define freshAnswer 



// string value to use instead 
// answer label instead of form 



// 0 



-1 yes to form 
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// form elements with default intpretations if there is no associated tSTR 
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^define nextButtonID 1 //IDs offset from formID 

#define backButtonID 2 
#define restartButtonID 3 

XX 

/* Resource ID map 

<= 999 System, according to Tutorial 1.2.2 

1000 first form based on CW Constructor 
1010 first element in first form 

1020 second element, etc 



1098 second fixed item, etc 

1099 first fixed item in first from, working down 
HOC second form 

1200 third from, etc 

15 9998 tSTR data 

9999 tSTR dana for general form processing, works down 

> 9999 System, based on SystemMgr.H 

*/ 

20 

/♦Modification history 
980304 SMP cosmetic 
970923 SMP Initial 
*/ 

25 /*EOF */ • 

//SaveRestoreField.c — save and restore chars in a field; © 1997-8 Seth M 
Powsner 

# include <Pilot.h> 
30 #include "GetObjectPtr.h" 

#include "SaveRestoreField,h" 
# include "StrCopyN.h" 



void SaveField (int ObjectID, char *cp, ULong maxFieldChars) 
{ 

FieldPtr fldP; 



if (NULL (fldP ^ GetObjectPtr (ObjectID) ) ) 
{ 

40 FldCompactText ( f Id?) ; 

StrCopyN(cp, FldGetTextPtr (fldP) , f ldP->textLen > 0 ? maxFieldChars 

: 0); 

1 

) 

45 void RestoreFielddnt ObjectID, char 'cp) 

t 

FieldPtr fldP; 
VoidHand tempH; 

50 if (NULL 1= (fid? = GetObjectPtr (ObjectID) ) 

&& NULL != (tempH = MemHandleNew {f ldP->maxChars) ) ) 

{ 

StrCopyN(MemHandleLock(tempH) , cp, fldP->maxChars) ; 
MemHandleUnlock(tempH) ; 
55 FldSetTextHandle(fldP, tempH) ; 

//FldDrawField(fldP) ; // but not need before form draw 
) 

} 

60 /*Modif ication history 

980222 SMP initial file 

*/ 

/*EOF */ 



65 //SaveRestoreField.h © 1997-8 Seth M Powsner 

extern void SaveField (int ObjectID, char *cp, ULong maxFieldChars); 
extern void RestoreField (int ObjectID, char ♦cp) ; 



/♦EOF 



70 
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//ScoreCaicuiation.c — calculate EnrichMap category score; ©1997-8 
Paretoscope 
#include <Pilot.h> 
# include "AppResourceList .h" 
5 # include " Get Re source . h" 

If include "Parse, h" 
#include "ScoreCalculation. h" 
^include "Storelnput .h" 

10 int likelyCategory; 

double score [categories] ; 

void ScoreCalculation (void) 
{ 

15 char "c; 

int formID; 
int element ID; 
int i; 

20 for (1=0; i < categories; i++) 

scoreti] = 0.0; 

if (NULL !* (c « GetStringResource(categoryConstants, NULL))) 
{ 

25 for (i « 0; i < categories; i++) 

score [i] =* ParseFloat (&c) ; 
UnlockStringResource (1) ; 
} 

30 for (Firstlnput (&formID, fielementlD) ; formID; Nextlnput (&formID, 

SelementlD) ) 

if (NULL (c = GetStringResource( formID + 10 + answerMultipliers, 

""))) 

35 ( 

for (i = 0; i < categories; i++) 

scored] += ParseFloat {&c) * ( (elementID - formID) / 10); 
UnlockStringResource (1) ; 
} 

40 } 

for (i = likelyCategory = categories - 1? — i >=0; ) 
if (score (likelyCategory) < scored]) 

. .. . _. . . , -likelyCategory -~i-; - - - 

45 return; 
1 

/♦Modification history 
980221 SMP cosmetic 
50 971124 SMP initial coding 

/*EOF ---*/ 

//ScoreCalculation. h ©1997-8 Paretoscope 
55 extern void ScoreCalculation (void) ; 

#define categories 6 

extern int likelyCategory; 
extern double score (categories] ; 



60 /*EOF 



//Search. c — find a record, invoked by system Find feature; © 1997-8 Seth M 
Powsner 

# include <Pilot.h> 
65 #include "AppDBClose.h" 

#include "AppDBGlobals.h" 

# include "AppDBOpen.h" 

#include "ResourceCommon.h" 

#include "drawStringlnBounds . h" 
70 #include "GetResource.h" 
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#include "Search. h" 

void Search (FindParamsPtr findParazns) 
{ 

VoidPtr appDBRecP; 
UInt cardNo; 
LocallD dbID; 
Boolean full; 
CharPtr headers- 
Word po5 ; 
RectangleType r; 
VoidHand recordH; 
UInc recordNum; 

if (AppDBOpenO II DmOpenDatabaselnfo (appDB, &dbID, 0, 0, icardNo, 0)) 
findParams->more « false; // no point in being called further if DB 
does not open 
else 

{ 

header = GetStringResource (appHeaderStr, "Application"); //set 

heading 

full = FindDrawHeader (findParams, header); 
UnlocJtStringResource (1) ; 

for ( recordNum = f indParams->recordNuin; //picJcup checlcing 

records where told 

NULL != irecordH = DmQueryNextlnCategory (appDB, firecprdNum, 
dmAllCategories) ) 

&& Ifull; 
recordNuin++) 
{ 

if (FindStrlnStr {appDBRecP = MemHandleLoc)c { recordH) , 

findParams->strToFind, &pos) ) 

{ 

if (true == (full = FindSaveMatch (findParams, 
recordNum, pos, 0, 0, cardNo, dbID) ) ) 

recordNum — ; // need to visit this record again 

else 

{ 

// Get the bounds of the region where we will 



draw the results . 

move in one pixel 
edge is solid. 



FindGetLineBounds (findParams, &r) ; 
// Display the record in the search dialog. We 

// so that when the record is inverted the left 

r . topLeft .X++; 
r. extent .X — ; 

DrawStringlnBounds (appDBRecP, &r) ; 
// line is used for the record. 
findParams ->lineNumber++; 

} 

) 

MemHandleUnlock (recordH) ; 

} 

findParams->more = (NULL != recordH) ; 

) 

AppDBClose ( ) ; 

/♦Generic module addapted from MemoPad.c per CodeWarrior Targetting Palm OS 
V. 1.2.1 pp.13 
Modification history 

980221 SMP changed stopping logic 

971012 SMP simplified version 

*/ 

/*EOF • /---*/ 

//Search. h © 1997-8 Seth M Powsner 

extern void Search (FindParamsPtr findParams) ; 
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/*EOF ' 

//Serial. c — serial interface test code; © 1997-8 Seth M Powsner 
#inciude <Pilot.h> 
5 //#inciude <SeriaiLibMac.h> 

^include <SerialMgr . h> 

#d€fine serialPortNum 0 
Idefine def aultBaudRate 57600 
10 #define testMsg "Abo Def\r\n" 

static Int openStatus = false- 
static UInt serialLibRefNiim; 
extern void SerialTest (void) ; 

15 

static Err Seriallnit (void) 
I 

Err error - false; 

if (! openStatus) 

20 if (! (error = SysLibFind ("Serial Library", sserialLibRefNuiti) ) ) 

if ('.(error = SerOpen (serialLibRef Num, serialPortNum, 
defaultBaudRate) ) ) 

OpenStatus = true; 

return error; 

25 } 

void SerialTest (void) 

ErrNonFatalDisplaylf (Seriallnit 0, "Seriallnit trbl."); 

ErrNonFatalDisplaylf (SerClearErr ( serialLibRef Num) , "SerClearErr trbl, ); // 
30 no error returned, just clears 

#if EMULATION LEVEL EMULATION^NONE 

ErrNonFatalDisplaylf (SerSendV10(seriaiLibRefNum, testMsg, sizeof (testMsg) ) 

, "SerSend trbl. ") ; 
ErrNonFatalDisplaylf (SerSendWait(serialLibRefNum, serDef aultCTSTimeout) 
35 , "SerSendWait trbl."); //5*sysTiclcsPerSecond 

#endif 

■ ErrNonFatalDisplaylf (SerClose (serialLibRefNum) 

, "SerClose trbl."); // serErrNotOpen may not be 

error 
40 } 

/♦Modification history 
980221 SMP cosmetic 
971115 SMP" initial coding 

45 '/ _ */ • 

/*EOF " ' 

//StartApplication.c — initialization, including opening main database; 

1997-8 Seth M Powsner 
50 #include <Pilot,h> 

#include "AppGlobals .h" 

♦include "AppDBGlobals . h" 

♦include "AppDBOpen . h" 

♦include "GetResource.h" 
55 #include "ResourceCommon.h" 

♦include "StartApplication . h" 

♦include "StoreFieldlnput .h" 

♦include "StrCopyN.h" 

60 Boolean StartApplication (void) 

* //SystemPreferencesType sysPrefs; 



65 



//Pref Get Preferences (fisysPrefs) ; 

appTyoe GetTypeResource (appTypeRsc, appTypeDefault) ; 
appVersion = GetlntResource (appVersionRsc, appVersionDefault) ; 
if { !PrefGetAppPreferencesV10(appType, appVersion, appPreferences, 
sizeof (appPreferences) ) ) 
70 ( 
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10 



StrCopyN (appPref erences, appPref Default, sizeof (appPref erences) > i 
PrefSetAppPreferencesVlO (appType, appVersion, appPref erences, 
sizeof (appPref erences) ) ; 
) 

// Clear out name fields 
ClearFieldlnput ( ) ; 

return AppDBOpen ( ) ; 

} 



/^Generic routine adapted from MemoPad.c per CodeWarrior Targetting Palm OS 
V. 1.2.1 pp.13 

980221 SMP cosmetic changes 
15 /*EOF 

//StartApplication.h ;S 1997-8 Seth M Powsner 
extern Boolean StartApplication (void) ; 



20 /*EOF 



//StartForm.c — go to first form based on resource definitions; © 1997-8 
Seth M Powsner 
#include <Pilot.h> 
25 # include "GetResource . h" 

# include "ResourceCorrmon, h" 
jlinclude "StartForm, h" 

void StartForm (void) 
30 { 

FrmGotoForm(GGtIntResource(firstFormRscID, f irstFormDefault) ) ; 

) 

/♦Generic application main routine adapted from MemoPad.c 
35 per CodeWarrior Targetting Palm OS v. 1.2.1 pp.13 

980220 SMP cosmetic changes 

/*EOF */ 

40 //StartFonn.h © 1997-8 Seth M Powsner 

extern void StartForm (void) ; 



/♦EOF 



'I 



45 //StopApplication.c — backout things setup in StartApplication; © 1997-8 

Seth M Powsner 

#include <Pilot.h> 

# include "AppGlobais .h" 

#include "AppDBClose. h" 
50 #include "StopApplication.h" 

void StopApplicat ion (void) 
( 

55 FrmCloseAllForms 0 ; // f rmCloseEvent to all forms (outside of 

Event Loop control) 

// Close database 

ErrNonFatalDisplaylf (AppDBClose 0 , "Trouble closing DB."); 

60 

// Save preferences & state initialized in StartApplication 
PrefSetAppPreferencesV10(appType, appVersion, appPref erences, 
sizeof (appPref erences) ) ; 

65 ) 

/♦Generic routine adapted from MemoPad.c per CodeWarrior Targetting Palm OS 
v. 1.2.1 pp.13 
Modification History 
70 980221 SMP cosmetic changes 
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971115 SMP VIO call for compatibility under new SDK 

970927 SMP original adapted from Tutorial 



5 

/♦EOF •*/ 

//StopApplicacion.h © 1997-8 Seth M Powsner 
extern void StopApplication (void) ; 
10 /*EOF -*/ 



//StoreFieldlnput.c — store (and restore) name fields, etc; © 1997-8 

ParetoScope 

^include <Piiot.h> 
15 #inciude "AppGenericDef s .h" 

#include "AppResourceList .h" 

ttinclude " Common FormGloba is . h" 
include "GetResource .h" 

# include "SaveRestoreField.h" 
20 # include "ScoreCalculation.h" 

# include "StoreFieldlnput.h" 

int fieldListll = {lastName, firstName, clientNumber) ; 

const int maxFieldChars = 32; 

25 char fieldString (arrayLength (fieldList) 1 (maxFieldChars J ; 

void ClearFieldlnput (void) 

i 

int i; 

30 for (i - arrayLength (fieldList) ; — i >= 0; ) 

fieldString (il [01 = 'XO'; 

) 

void Save Fieldlnput (void) 
{ 

35 int i ; 

for (i = arrayLength ( fieldList ) ; ~i >=• 0; ) 

SaveField ( fieldList (ij + formID, fieldString (i ] , maxFieldChars); 

} 

void RestoreFieldlnput (void) 
40 i 

int i ; 

for (i = arrayLength (fieldList) ; — i >=« 0; ) 

RestoreField( fieldList [i] + resultForm, fieldString [ il) ; 
RestoreField(resultField + resuitForro, 
45 GetStringResourcedikelyCategory + resultText + formID, 

"Error . Please report . " ) ) ; 

UnlocJcStringResource (1) ; 

) 

50 /* Modification history 



980222 SMP separated out low level Pilot calls, & cosmetic fixes 

971125 SMP Use likelyCategory to set response 

971123 SMP Initial coding 

*/ 

55 /*EOF --*/ 



//StoreFieldlnput.h © 1997-8 ParetoScope 
extern void ClearFieldlnput (void) ; 
extern void SaveFieldlnput (void) ; 
60 extern void RestoreFieldlnput (void) ; 

/*EOF */ 

//Storelnput.c — store inputs from form; © 1997-8 Seth M Powsner 
65 #include <Pilot.h> 

# include "Storelnput .h" 

const tableLen ='29; //should be prime 

typedef struct { int formID; int element ID; } formElementPair ; 
70 const empty = 0; 
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static fonnElementPair table ItableLen] ; 
Boolean tablelnitialized = false; 

formElementPair *possibleEntry (int fomlD) ; 

void Clearlnput (void) 
( 

tablelnitialized = false; 

) 

void Savelnput (int formID, int elementID) 
{ 

formElementPair *p; 

ErrFatalDisplaylf (NULL (p = possibleEntry ( formID) ) 

(I (p->formID formID && p->forroID !« empty), 

"Input table overflow."); 
p->formID = formID; 
p->eiementID = elementID; 
return; 

} 

int Restorelnput (int formID) 

formElementPair *p « possibleEntry (formID) ; 

return p && p-> formID formID ? p->eiementID : NULL; 

) 

formElementPair *possibleEntry (int formID) 
( 

int probe, toCheck; 

if {! tablelnitialized) 
( 

tablelnitialized = true; 
for (probe = tableLen; — probe >=0;) 
table [probe] . formID = empty; 

) 

for (probe ^ formID % tableLen, toCheck = tableLen; 

— toCheck >= 0 && table [probe] . formID !« empty && 
table Iprobe] , formID !« formID; 

probe = (probe + 1) % tableLen) 

return stable [probe] ; 

} 

int nextPair = -1; 

void First Input (int *formIDp, int *elementIDp) 
I 

nextPair = tableLen - 1; 
Nextlnput (formlDp, elementlDp) ; 

} 

void Nextlnput (int *formIDp, int *elementIDp) 

while (nextPair >« 0 && table [nextPair] . formID =« empty) 

— nextPair; 
if (nextPair >« 0) 

{ 

♦formlDp = table [nextPair] . formID; 
*elementIDp = table [nextPair] .elementID; 
— nextPair; 
} 

else 

*formIDp - *elementIDp = empty; 
return; 

) 
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/* Modification history 
980222 SMP cosmetic 

971121 SMP Initial coding, simple hash design, element ID only 

/*EOF ' 

//Storelnput.h © 1997-8 Seth M Powsner 
extern void Clear Input (void) ; 

extern void Firstlnpat (int *fonnIDp, int *elementIDp) ; 
extern void Nextlnput (int *formIDp, int *elementIDp) ; 
extern void Savelnput (int formID, int elementID) ; 
extern int Restorelnput (int formID) ; 



/*EOF 



//StrAToType.c — convert ascii to "type" type; © 1997-8 Seth M Powsner 
# include <Pilot.h> 
#include "StrAToType.h" 

ULong StrAToType(CharPtr str) 
( 

Int n; . 

CharPtr p; 

ULong type » ' 

for (n = sizeof (type), p = (CharPtr) stype; — n 0 & *str;) 

*p++ s *str++; 
return type; 

} 

/♦Modification history 
980222 SMP cosmetic 
*/ 

/*EOF *^ 

//StrAToType.h © 1997-8 Seth M Powsner 
extern ULong St rAToType (CharPtr str); 

/•EOF 

//StrCopyN.c string copy with limit; © 1997-8 Seth M Powsner 
#include <Pilot.h> 
linciude "StrCopyN.h" 

CharPtr StrCopyN (CharPtr dst, CharPtr src, ULong n) 
- I ' ■ - - - 

if (n != 0) 

while (— n (*dst++ = *src++) !«.0) ; 
if (n «*= 0) *dst++ = NULL; 
return dst; 

} 

/♦Modification history 
980221 SMP cosmetic 

970926 SMP initial coding (std function, but not on Pilot) 

/*EOF ' 

//StrCopyN.h © 1997-8 Seth M Powsner 

extern CharPtr StrCopyN (CharPtr dst, CharPtr src, ULong n) ; 
/*EOF 

//SyncNotification.c let application Jcnow about syncronizations; © 1997-8 

Seth M Powsner 

#include <Pilot.h> 

#inciude "SyncNotification.h" 

Err SyncNotification(void) //dummy routine 
{ 

return (0) ; 

} 
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/^Generic routine adapted from MemoPad.c per CodeWarrior Targetting Palm OS 
V. 1.2.1 pp.13 
Modification history 
980221 SMP cosmetic 

/*EOF / 

//SyncNotification.h © 1997-8 Seth M Powsner 
extern Err SyncNotif ication (void) ; 



/*EOF 



//TestCode.c— generic Test Code routine stub; © 1997-8 Seth M Powsner 
# include <Piiot.h> 
15 # include "AppResourceList.h" 

#include "TestCode.h" 

Boolean TestCode(int formlD) 

t 

20 //SoundManager .h 

SndPiaySystemSound(sndWarning) ; //to signal code being tested 
//add code here 
return true; 

} 

25 /*Modif ication history 

980303 SMP cosmetic 
971120 SMP initial use 

/*EOF */ 



//TestCode.h © 1997-8 Seth M Powsner 

Boolean TestCode(int formID) ; 

/*EOF 



35 //ToStr.c — various type to string conversions; © 1997-8 Seth M Powsner 

#inciude <Pilot.h> 
^include <NewFloatMgr .h> 
#include "ToStr.h" 

40 static char * StrUToA2 (char *p, ULong u. Boolean leadingZero) ; 

static char convertBuf [8 ] [12 ] ; 
static Word convertBufNext ~ 0; 

#define conveirtBufNextMask 7; . , 

45 

char ' rloatToStr (double d) 
{ 

FlpCompDouble *p = (void *) &d; 

convertBufNext (convertBufNext + 1) & convertBufNextMask; 
50 FlpFToA(p->fd, convertBuf [convertBufNext] ) ; 

return convertBuf [convertBufNext 1 ; 

) 

char * IntToStr(/*long*/int i) 
55 { 

convertBufNext = (convertBufNext + 1) & convertBufNextMask; 
return StrlToA (convertBuf [convertBuf Next] , i); 

} 

char * ULongToStr (ULong i) 
60 { 

convertBufNext - (convertBufNext +1) & convertBufNextMask; 
return strUToA2 (convertBuf (convertBufNext] , i, false); 

} 

char * ULongToStrFixed (ULong i) 
65 ( 

convertBufNext = (convertBufNext + 1) & convertBufNextMask; 
return StrUToA2 (convertBuf [convertBufNext] , i, true); 

} 

70 static ULong powersOf Ten ( 1 « (1000000000, 100000000, 10000000, 
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1000000, 
1000, 



100000, 
100, 



10000, 
10, 



0); 

char * StrUToA2 (char *p, ULong u. Boolean ieadingZero) 
( 



for (tenp = &powersOfTen(0] ; *tenp; tenp++) 
{ 

i = (int) (u/(*tenp)); 
IeadingZero {i != 0); 
if (IeadingZero) 

*dp++ = ("0123456789") li] ; 
u -= i * (*tenp) ; 
} 

*dp++ - ("0123456789") [u]; 
*dp++ = 'u' ; 
*dp '= NULL; 
return p; 



/*EOF 

//ToStr.h © 1997-8 Seth M Powsner 
extern char * FloatToStr (double d) ; 
extern char * IntToStr ( /*long*/int i); 
extern char * ULongToStr (ULong i); 
extern char * ULongToStrFixed (ULong i); 

/♦EOF 



char 

int 

ULong 




/♦Modification history 



980222 SMP 

971115 SMP 

971113 SMP 

970921 SMP 
*/ 



cosmetic 
added StrUToA & StrUtoAFixed 
renamed ToStr.c, ULongToStr added; 
separated out 
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Mr. John Doe 
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Is a 

Who believes he is 

Medical attitudes are 
similar to an 
individual who 
is an 

Most likely to be 
convinced of the 
diagnosis 

with possibly 

by 



middle aged man 
in good health. 



Questionnaire 
answers suggest 
he is 

for 

For this particular 
plan at this 
particular time, 



Consider 



He tends to 



informed health care knowledge seeker. 



hyperlipidemia 

poor long term prognosis 

collegial, factual presentations of the factors 

leading to this diagnosis. Scientific articles 
describing the desease and it's outcomes may 
be helpful; but, he will likely pursue the subject 
on his own. 



capable of sticking with a plan 
change of diet and increased exercise, but 
only once he is fully convinced. 



probability of compliance is indeterminate from 
information provided. 

follow-up contact in two to four weeks to solicit 
his opinion about the diagnosis and 
treatment recommended, 

prefer quick fix treatment options based on 

his inclination towards new technology and his 
prior surgery. 
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